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ABSTRACT 

This  report  documents  a  framework  that  can  be  used  to  create  static  world 
world  policy  simulation  (SWOPSIM)  models.  The  framework  consists  of  a  simple 
economic  structure  which  includes  summary  policy  measures  plus  a  set  of 
computer  programs  which  generates  the  models  from  a  master  model  spreadsheet. 
The  models  created  by  the  framework  reside  in  spreadsheets  and  are  modified 
and  solved  as  spreadsheets.  SWOPSIM  models  are  designed  to  simulate  the 
effect  of  changes  in  policies  on  production,  consumption,  and  trade.  The 
framework  allows  the  construction  of  static  single  product  as  well  as  multi¬ 
product  world  models.  Economic  linkages  across  products  can  occur  via  cross 
price  relationships  and  "input-output "  product  specification  while  linkages 
across  countries  and  regions  take  place  through  domestic-international  price 
equations  and  world  trade.  The  use  of  the  SWOPSIM  framework  is  illustrated 
with  a  simple  world  agricultural  trade  model. 
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A  Static  World  Policy 
Simulation  (SWOPSIM) 

Modeling  Framework 

Vernon  Oley  Roningen 

OVERVIEW  OF  THE  STATIC  WORLD  POLICY  SIMULATION  (SWOPSIM)  MODELING  FRAMEWORK 

This  report  documents  a  framework  for  creating  static  world  policy  simulation 
(SWOPSIM)  models.  The  framework  consists  of  a  simple  economic  structure  along 
with  a  procedure  for  the  creation  of  SWOPSIM  models  in  spreadsheets.  The 
framework  allows  a  researcher  to  readily  set  up  and  parameterize  static  models 
in  spreadsheets  which  can  be  used  to  examine  a  variety  of  policy  related 
topics  including  trade  liberalization  and  major  changes  in  domestic  policies 
that  might  have  international  repercussions. 

The  report  begins  with  a  brief  description  of  the  structure  used  for  SWOPSIM 
models.  The  models  are  static,  meaning  that  the  dynamic  path  of  endogenous 
variables  such  as  quantities  and  prices  is  not  modeled.  Simple  constant 
elasticity  behavioral  equations  describe  supply  and  demand  in  terms  of  own  and 
cross  prices.  Input-output  types  of  relationships  are  also  allowed  in  order  to 
deal  with  derived  demand  and  joint  products.  Net  trade  is  a  residual  for  any 
country/region  but  is  made  to  balance  for  the  world  as  a  whole  via  a  world 
market  clearing  mechanism.  The  policy  stucture  relies  on  the  summarization 
of  policies  as  "subsidy  equivalents"  on  production,  consumption,  or  trade 
and/or  on  the  concept  of  price  transmission  between  domestic  and  international 
markets.  The  models  are  designed  to  explore  the  implications  of  changes  in 
policies  from  a  base  equilibrium  situation. 

SWOPSIM  models  are  created  and  updated  by  a  sequence  of  computer  programs.  A 
master  model  file  (spreadsheet)  defines  the  view  of  the  world  that  is  to  be 
modeled.  Data  spreadsheets  for  each  country/region  in  the  world  are  created 
from  the  specification  provided  in  a  master  file.  As  base  data  or 
elasticities  are  added  to,  or  modified  in  the  country/region  spreadsheets, 
updated  equations  can  be  placed  in  the  proper  cells.  Once  all  of  the 
country/region  spreadsheets  are  created  and  initialized  with  data,  parameters, 
and  equations,  a  world  product  model  can  be  created  for  any  selected  product. 
Finally,  a  full  world  multi-product  SWOPSIM  model  is  created.  This  model  can 
be  used  to  explore  the  entire  set  of  cross  country  and  cross  product  responses 
expected  from  significant  policy  changes.  Such  a  model  can  be  used,  for 
example,  to  explore  the  full  ramifications  of  trade  liberalization  in 
agriculture . 

The  report  concludes  with  suggestions  for  the  modification  of  standard  SWOPSIM 
models.  Appendix  A  includes  a  full  documentation  of  all  of  the  programs  used 
to  create  SWOPSIM  models. 

The  SWOPSIM  framework  is  a  research  tool  which  is  designed  to  free  the 
researcher  from  some  of  the  dreariness  of  model  building  and  therefore  allow 
more  time  for  the  application  of  economic  logic  to  the  analytical  task. 
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THE  STRUCTURE  OF  SWOPSIM  MODELS 


A  simple  standard  structure  is  used  for  model  components.  Policy,  price, 
supply,  demand,  and  net  trade  equations  are  specified  for  a  country/region. 
These  components  are  combined  across  products  to  form  operational  world  single 
product  models.  Single  product  models  combined  form  a  full  world  multi- 
product  model  (see  figure  1). 


Figure  1 — Structure  of  SWOPSIM  Models 
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Behavioral  Equations 

SWOPSIM  models  are  static;  they  do  not  model  the  time  paths  of  endogenous 
variables.  Instead,  they  solve  for  values  at  the  end  of  a  time  period  which 
is  defined  by  the  parameterization  of  the  model.  Comparative  static  models 
are  designed  to  compare  alternative  equilibrium  states  disregarding  the 
process  of  adjustment  which  leads  to  the  equilibrium  state.  If,  for  example, 
a  static  model  contains  long-term  own  and  cross  price  elasticities,  it  can  be 
viewed  as  a  longrun  static  version  of  a  dynamic  model.  The  static  model 
calculates  the  ultimate  changes  that  would  be  expected  to  work  themselves  out 
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over  several  time  periods  in  the  dynamic  model. 

Simple  standard  equations  are  created  for  SWOPSIM  models.  Supply  and  demand 
quantities  are  functions  of  own  and  cross  product  prices,  and  if  desired, 
other  supply  and  demand  quantities  included  in  a  model.  Constant  elasticity 
functional  forms  are  used.  Trade  is  the  difference  between  supply  and  demand. 
Stocks  are  not  explicitly  included  in  the  standard  specification. 

As  an  example,  suppose  a  model  includes  beef  (BF),  wheat  (WH),  and  corn  (CN). 
Let  P  denote  a  price,  QS  the  quantity  supplied,  QD  the  quantity  demanded,  QT 
the  quantity  traded,  SF  a  shift  factor  (a  value  of  0  means  no  shift),  S  a 
supply  related  variable,  D  a  demand  related  variable,  and  C  a  constant.  A  set 
of  supply  demand  and  trade  equations  might  appear  as  follows  ( *  means  times 
and  ~  means  exponentiation): 

QSCN  -  (1  +  SFSCN )  *»  CSCN  »  (PCN  ~  .3)  *  (PWH  ~  -.2)  (1) 

QDCN  *  (1  +  SFDCN )  *  CDCN  *  (PCN  ~  -.2)  *  (PWH  ~  .05)  *  ( QSBF  ~.l)  (2) 

QTCN  «  QSCN  -  QDCN  (3) 

The  shift  factors  allow  exogenous  supply  and  demand  shifts  to  be  explored  with 
the  static  model.  An  explanation  follows  concerning  the  use  of  input-output 
direct  linkages  that  can  be  used  for  the  specification  of  joint  production  or 
derived  demand  [as  illustrated  by  putting  the  beef  supply  quantity  as  a  feed 
demand  variable  in  the  corn  demand  equation  (2)  above]. 

Equations  of  the  above  form  are  used  as  standard  SWOPSIM  behavioral  equations. 
If  equations  are  needed  that  differ  from  this  standard  form,  they  can  be 
modified  manually  for  individual  products.  The  constant  elasticity  form  was 
chosen  for  the  standard  equations  because  it  is  easy  to  interpret  and  may 
avoid  some  types  of  model  solution  problems. 

Derived  Demand 

For  some  products  such  as  livestock  feed,  the  demand  depends  not  only  on 
prices,  but  also  on  some  physical  relationship  which  relates  an  input  (e.g. 
feed  demand)  to  an  output  (e.g.  meat  production).  A  derived  demand 
relationship  should  reflect  both  price  and  physical  relationships.  A  SWOPSIM 
model  can  be  specified  to  reflect  this  "input-output”  relationship  as  follows: 
Adding  to  the  notation  for  equations  (l)-(3),  let  corn  (CN)  and  wheat  (WH)  be 
fed  to  beef  cattle  (BF)  and  hogs  (PK)  in  the  quantities  QDCNBF  and  QDCNPK, 
respectively.  Assume  that  the  ratio  of  corn  fed  to  meat  supplied  is  a 
function  of  relative  prices: 

QDCNBF/QSBF  -  A1  *  (PCN  ~  B1 )  *  (PWH  *  Cl)  (4) 

QDCNPK/QSPK  -  A2  *  (PCN  *  B2 )  *  (PWH  ~  C2 )  (5) 

A1  and  A2  are  intercept  terms  and  Bl,  Cl,  B2,  and  C2  are  demand  elasticities. 

Further  assume  that  the  rate  of  substitution  for  the  same  feed  in  response  to 

price  is  the  same  for  the  two  meats  (this  does  not  mean  that  the  feed  mixes 
are  the  same  for  the  two  meats).  This  assumption  implies  that  Bl  -  B2  -  B  and 
Cl  ■  C2  -  C.  Letting  •  denote  percentage  change,  the  total  feed  demand  for 
corn  can  be  written: 
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QDCN  =  QDCNBF  +  QDCNPK 

-  ( PCN  ~  B)  *  ( PWH  ~  C)  *  [(Al  *  QSBF )  +  (A2  *  QSPK)]  (6) 

With  this  specification,  the  elasticity  of  QDCN  with  respect  to  QSBF  is: 

( •QDCN/«QSBF)  =  (PCN  ~  B )  *  (PWH  ~  C )  *  Al  *  QSBF  /  QDCN  (7) 

Substituting  equation  (4)  into  equation  (7)  yields: 

(•QDCN/»WSBF)  =  QDCNBF/QDCN  (8) 

This  means  that  a  derived  demand  can  be  approximated  in  a  constant  elasticity 
specification  by  including  the  supply  quantity  (using  the  product)  as  a 
variable  in  the  demand  equation  where  the  share  of  the  product  demanded  for 
producing  the  supply  serves  as  the  constant  elasticity.  Thus  in  equation  (2), 
corn  (CN)  is  assumed  to  be  fed  to  beef  with  a  historical  share  of  total  corn 
demand  going  to  beef  production  of  10  percent  [the  elasticity  of  the  beef 
supply  variable  in  equation  (2)].  This  specification  can  be  used  for  every 
use  of  a  product  as  an  input  to  the  production  of  another  product.  For 
example,  if  corn  was  also  fed  to  poultry,  equation  (2)  would  include  another 
term  (the  quantity  supplied  of  poultry  meat)  with  an  elasticity  representing 
the  share  of  total  corn  demand  going  to  feed  poultry.  1/ 

Joint  Products 


Many  products  are  produced  jointly  from  one  base  product  with  the  yield  ratios 
being  determined  by  quantity  relationships  and  sometimes  being  influenced  by 
relative  prices  of  the  products.  Examples  are  the  production  of  meal  and  oil 
by  crushing  soybeans  and  the  production  of  butter  (BT),  cheese  (CH),  and  fluid 
milk  (FM)  from  dairy  farm  milk  (MK). 

Assuming  the  possibility  of  substitution  among  products  in  response  to  price 
and  assuming  that  the  total  demand  for  milk  (QDMK)  is  for  the  production  of 
butter,  cheese,  and  fluid  milk,  three  supply  equations  can  be  written: 

QSBT/QDMK  =  Al  *  (PBT  ~  B1 )  *  (PCH  ~  Cl)  *  (PFM  ~  D1 )  (9) 

QSCH/QDMK  =  A2  *  (PBT  ~  B2 )  *  (PCH  ~  C2)  *  (PFM  ~  D2 )  (10) 

QSFM/QDMK  =  A3  *  (PBT  ~  B3)  *  (PCH  ~  C3)  *  (PFM  ~  D3)  (11) 

In  this  specification,  it  can  be  shown  that  the  elasticity  of  a  joint  product 

with  respect  to  the  total  demand  of  the  base  product  (e.g.  QSBT  with  respect 
to  QDMK)  is  unity.  Therefore  the  supply  equation  for  a  joint  product  can  be 
represented  in  constant  elasticity  form  with  a  demand  quantity  variable  for 
the  base  product  in  the  supply  equation  with  an  elasticity  of  unity.  For 
QSBT,  this  equation  would  be: 

QSBT  =  Al  *  (PBT  ~  Bl)  *  (PCH  *  Cl)  *  (PFM  ~  D1 )  *  (QDMK  ~  1 )  (12) 


1/  This  specification  was  suggested  by  S.  Magiera. 
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The  key  problem  remaining  with  joint  product  specification  is  the  derivation 
of  a  demand  elasticity  for  the  base  product.  One  way  of  doing  this  for  the 
above  example  where  supply  elasticities  for  joint  products  appear  in  the 
supply  equations  might  be  as  follows:  Again  let  •  denote  percent  change,  V 
denote  value,  VA  value  added,  ELAS  elasticity;  then  following  the  notation  in 
equations  (9)  -  (11),  the  following  identity  can  be  written  assuming  the  total 
value  of  dairy  farm  milk  production  equals  the  value  of  the  joint  product 
production  plus  the  value  going  to  other  inputs  (value  added): 

( PBT  *  QSBT )  +  ( PCH  *  QSCH)  +  ( PFM  *  QSFM)  +  VAMK  =  PMK  *  QDMK  (13) 

Differentiating  and  gathering  terms,  this  produces: 

VMK  *  ( 1-ELASQDMK)  *  («PMK) 

=  VBT  *  [( 1+ELASQSBT )  *  (*PBT)  +  ELASQSBTCH* ( «PCH )  +  ELASQSBTFM* ( »PFM ) ] 

+  VCH  *  [ ( 1+ELASQSCH )  *  (*PCH)  +  ELASQSCHBT* ( «PBT )  +  ELASQSCHFM* ( «PFM ) ] 

+  VFM  *  [( 1+ELASQSFM)  *  (*PFM)  +  ELASQSFMBT* ( «PBF )  +  ELASQSFMCH* ( »PCH ) ] 

+  VAMK  *  (1+ELASVAMK)  *  (*VA)  (14) 

Canceling  out  the  value  added  identity,  assuming  that  equation  (14)  is 
homogeneous  of  degree  zero  in  the  long  run,  and  solving  for  the  elasticity  of 
demand  for  milk  yields  a  formula  relating  this  elasticity  to  the  supply 
elasticties  of  the  joint  products  and  an  assumed  elasticity  of  supply  of  value 
added  (ELASVAMK)  which  represents  the  supply  elasticity  of  other  factors  in 
the  production  process.  Let  VS  denote  a  value  share  (e.g.  VSBTMK  =  VBT /VMK ) : 

ELASQDMK  =  -[( 1-VSBT-VSCH-VSFM)  *  ELASVAMK 

+  VSBT  *  ( ELASQSBT  +  ELASQSBTCH  +  ELASQSBTFM) 

+  VSDC  *  ( ELASQSCH  +  ELASQSCHBT  +  ELASQSCHFM) 

+  VSFM  *  ( ELASQSFM  +  ELASQSFMBT  +  ELASQSFMCH)]  (15) 

Equation  (15)  states  that  the  base  product  demand  elasticity  is  a  weighted  sum 
of  the  product  supply  elasticities  and  an  assumed  elasticity  for  the  supply  of 
other  inputs  in  the  "value  added"  production  process.  Such  a  formula  provides 
an  acceptable  base  product  demand  elasticity  for  SWOPSIM’s  constant  elasticity 
f  ormation . 

If  product  supply  elasticities  do  not  appear  in  the  supply  equations,  the 
product  supply  elasticities  might  appear  with  positive  signs  in  the  base 
product  demand  equation  along  with  a  negative  base  product  demand  elasticity 
where  a  similar  weighting  scheme  relates  the  base  product  demand  and  the 
derived  product  cross  price  demand  elasticities.  This  alternative  formulation 
might  be  appropriate,  for  example,  for  the  specification  of  a  base  product 
demand  equation  as  a  crushing  equation  for  soybeans  (increased  meal  and  oil 
prices  encourage  crushing  while  increased  soybean  prices — a  cost — discourage 
crushing) . 


Price  Linkage  Equations  and  Policy  Structure 

The  policy  structure  of  SWOPSIM  models  is  embedded  in  equations  linking 
domestic  and  world  prices.  The  standard  policy  structure  is  designed  to  allow 
flexibility  in  characterizing  policies  that  might  affect  production, 
consumption,  and  trade.  Policies  are  inserted  as  subsidy  equivalents  at  the 
producer,  consumer,  export,  or  import  level.  Alternatively,  price 
transmission  elasticities  can  be  used  to  characterize  the  degree  of  connection 
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of  domestic  and  world  prices.  Exchange  rates  translate  world  prices  to  trade 
prices  denominated  in  a  country’s  domestic  currency  to  link  up  with  producer 
and  consumer  prices  also  denominated  in  domestic  currency. 

The  standard  policy  structure  found  in  SWOPSIM  models  is  developed  below.  As 
is  the  case  with  behavioral  equations,  price  linkage  equations  and  their 
policy  structure  can  be  modified  once  the  standard  equations  have  been 
created.  The  basic  design  premise  of  the  price  linkage  equations  and  policy 
structure  is  to  create  a  standard  yet  flexible  framework  in  which  linkages  and 
policies  can  be  parameterized.  A  second  important  consideration  is  the  desire 
to  minimize  the  need  for  base  period  information  for  parameter ization  for  a 
particular  country  and  product  and  to  parameterize  equations  using  the  most 
robust  data  available.  This  means  that  the  linkage  equations  can  be 
parameterized  on  observed  equilibrium  data  and  that  policy  changes  are 
inserted  to  remove  policies  now  in  place.  This  design  approach  means  that 
"harder”'  observed  data  and  many  "unobserved”  variables  are  embedded  in  the 
fixed  constant  terms  of  a  SWOPSIM  model.  "Softer”  policy  measurement  data  are 
used  to  shock  the  model  from  the  observed  equilibrium  situation. 

To  begin  from  a  theoretically  more  complex  and  "realistic”  situation,  price 
and  margin  variables  are  defined  to  describe  the  base  equilibrium  situation: 

PP  Price  (Production) 

PC  Price  (Consumption) 

PE  Price  (Export) 

PI  Price  (Import) 

MD  Margin  (Domestic) 

ME  Margin  (Export) 

MI  Margin  (Import) 

PW  Price  (World) 

ER  Exchange  Rate 

CE  Constant  (in  Export  price  linkage  equation) 

Cl  Constant  (in  Import  price  linkage  equation) 

Both  these  constants  include  transportation  costs  which  drive  a  wedge  between 
world  prices  and  trade  prices  in  domestic  currencies. 

TR  Transmission  elasticity  (exchange  Rate) 

TW  Transmission  elasticity  (World  price) 

A  value  of  zero  for  a  transmission  elasticity  means  no  transmission  while  a 
value  of  one  implies  full  transmission  of  prices. 

Given  the  above  variable  definitions,  the  following  equations  define  the 
underlined  margins  and  constants: 


Domestic  mafgin 

MD  -  PC 

-  PP 

(16) 

Export  margin 

ME  =  PE 

-  PP 

(17) 

Import  margin 

MI  -  PC 

-  PI 

(18) 
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(19) 

(20) 


Export  price  linkage  constant  CE  =  PE  /  [(ER  ~  TR )  *  (PW  ~  TW)] 

Import  price  linkage  constant  Cl  =  PI  /  [(ER  ~  TR )  *  (PW  ~  TW)] 

Policy  intervention  variables  (defined  as  positive  unit  value  subsidy 
equivalents)  include: 

SP  Subsidy  (Production) 

SC  Subsidy  (Consumption) 

SE  Subsidy  (Export) 

SI  Subsidy  (Import) 

Total  production  and  consumption  subsidy  equivalents  (PSE  and  CSE)  would  be 
defined  as: 


PSE 

=  SP 

+  SE  - 

SI 

(21) 

CSE 

=  SC 

-  SE  + 

SI 

(22) 

Taxes  or  tariffs  are  simply  defined  as  negative  subsidy  equivalents. 

Equations  (21)  and  (22)  assume  that  domestic  and  foreign  products  are  perfect 
substitutes  so  that  a  "price  wedge"  imposed  at  the  border  is  fully  transmitted 
to  domestic  producers  and  consumers.  The  "observed"  base  prices  are  assumed 
to  reflect  the  impact  of  any  policies  in  place.  The  two  price  linkage 
equations — (19)  and  (20) — can  be  simplified  to  one  equation  applicable  for 
both  exports  and  imports.  Combining  equations  (17)  and  (19): 

PP  =  -ME  +  CE  *  (ER  ~  TR)  *  (PW  ~  TW)  (23) 

Combining  equations  (16),  (18),  and  (20): 

PP  =  PC  -  MD  =  PI  +  MI  -  MD  =  MI  -  MD  +  Cl  *  (ER  ~  TR)  *  (PW  ~  TW)  (24) 

Just  one  equation  can  be  used  to  replace  equations  (19)  and  (20)  if  it  is 
assumed  that  -ME  =  MI  -  MD  and  that  CE  =  Cl.  The  former  assumption  (MD  =  MI  + 
ME)  implies  a  costless  transition  between  exporting  and  importing  for  a 
product.  A  product  can  be  marketed  domestically  with  the  same  margin  for 
exporting  (MI  =  0)  or  for  importing  (ME  =  0)  or  the  re-export  of  an  import  (MI 
+  ME).  Define  MA  and  CT  for  this  simplification: 


MA  = 

-ME  =  MI  -  MD 

(25) 

CT  = 

CE  -  Cl 

(26) 

Equation  (26)  implies  equal  transport 
foreign  supply  sources  or  customers, 
price  linkage  equations  remain: 

Production  price  linkage  PP  =  MA  + 

Consumption  price  linkage  PC  *  MD  + 

MD  can  be  calculated  by  observing  the 
calculated  by  first  calculating  CE  or 
applies.  This  requires  a  trade  price 


costs  and  margins,  etc.  from  port  to 
Using  these  two  assumptions,  only  two 

CT  *  (ER  ~  TR)  *  (PW  ~  TW)  (27) 

PP  (28) 

base  pfices  PC  and  PP .  CT  must  be 
Cl  from  equation  (19)  or  (20),  whichever 
(PE  or  PI),  a  world  price  (PW),  an 
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exchange  rate  (ER),  and  the  appropriate  transmission  elasticities.  MA  is  then 
calculated  as  a  residual  from  equation  (27). 

Removal  or  liberalization  of  policies  can  be  simulated  by  removing  the  subsidy 
equivalents  from  the  observed  base  equilibrium  situation.  This  will  allow  the 
calculation  of  domestic  prices  without  the  subsidy  equivalents.  If,  in 
addition,  the  system  of  equations  allows  a  recalculation  of  world  prices  to 
restore  world  trade  equilibrium,  then  the  adjustments  will  take  into  account 
all  of  the  complex  international  feedbacks  that  will  occur  with  policy 
changes.  Three  panel  diagrams  in  figures  2,  3,  and  4  illustrate  the  movements 

in  prices  and  quantity  between  the  protected  (solid  line  - )  and  liberalized 

(dashed  line  - )  situation  if  changes  are  made  in  particular  subsidy 

equivalents.  2/ 


Figure  2 — Removal  of  a  Production  Subsidy  Equivalent  in  an  Exporting  Country 


PRODUCER 


Change 


Change 


Change 


Production  ^ 
Consumption  4/ 
Exports 

Producer  Price*  4^ 
Consumer  Price  /p 


Trade  ^ 

World  Price 


Production  /|v 
Consumption  4/ 
Imports  4^ 
Producer  Price  /f“ 
Consumer  Price  y|v 


*  including  the  producer  subsidy  equivalent  in  the  protected  situation 


In  figure  2  the  change  in  producer  price  in  the  exporting  country  is  less  than 
the  amount  of  production  subsidy  equivalent  removed.  Part  of  the  producer’s 
loss  in  revenue  from  removal  of  the  subsidy  is  offset  by  an  increase  in  the 
world  price  that  results  when  the  subsidy  equivalent  is  removed. 


2/  For  an  analysis  of  the  effect  of  policies  on  agriculture  using  three 
panel  diagrams,  see:  Impacts  of  Policy  on  U.S.  Agricultural  Trade,  Paarlberg, 
Webb,  Morey  and  Sharpies;  Staff  Report  AGES840802,  Econ.  Res.  Serv.  U.S.  Dept. 
Agr . ,  Dec .  1984 . 
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Figure  3 — Removal  of  an  Export  Subsidy  Equivalent  in  an  Exporting  Country 
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Figure  4 — Removal  of  an  Import  Subsidy  Equivalent  in  an  Importing  Country 
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All  of  the  above  price  linkage  equations  are  specified  at  the  observed 
equilibrium  situation  which  includes  the  effects  of  any  policies  in  place. 
Liberalized  equilibrium  prices  (prices  which  would  operate  if  policy 
interventions  were  removed)  are  defined: 

PPL  Price  (Production,  Liberalized) 

PCL  Price  (Consumption,  Liberalized) 

From  the  producer  viewpoint,  removal  of  the  total  production  subsidy 
equivalent  means  that  the  producer  now  receives  less  per  unit  for  the  product 
or : 

PPL  =  PP  -  (SP  +  SE  -  SI)  (29) 

The  consumer,  with  the  removal  of  subsidy  equivalents,  would  now  have  to  pay 
more  per  product  consumed: 

PCL  =  PC  +  (SC  -  SE  +  SI)  (30) 

Equations  (29)  and  (30)  give  the  initial  arithmetic  felt  by  the  producer  and 
consumer  as  subsidies  are  removed.  But  of  course  as  they  face  new  prices, 
they  will  adjust  quantities  and  a  full  solution  of  a  model,  re-clearing  world 
markets,  is  needed  to  find  the  final  equilibrium  prices  and  quantities 
resulting  from  removal  of  the  subsidy  equivalents. 

Substituting  equation  (27)  into  equation  (29)  yields: 

PPL  =  -SP  -  SE  +  SI  +  MA  +  CT  »  ( ER  "  TR)  *  (PW  "  TW)  (31) 

Substituting  equations  (29)  and  (30)  into  equation  (28)  yields: 

PCL  -  SC  +  SE  -  SI  =  MD  +  PPL  +  SP  +  SE  -  SI  (32) 

which  simplifies  to  : 

PCL  =  MD  +  SC  +  SP  +  PPL  (33) 

Equations  (31)  and  (33)  constitute  the  full  price-policy  linkage  equations 
included  in  SWOPSIM  models.  When  parameterized  for  an  existing  equilibrium 
situation,  the  insertion  of  subsidy  equivalents  will  allow  the  recalculation 
of  quantities  and  prices  that  would  result  if  the  subsidy  equivalents  were 
removed.  In  the  models,  the  subsidy  equivalents  serve  as  shifters  of  quantity 
equations  which,  in  turn,  cause  recalculation  of  equilibrium  prices  and 
quantities.  • 

Equations  (31)  and  (33)  are  the  same  as  equations  (27)  and  (28)  except  that 
they  include  subsidy  equivalents  which  imply  a  different  set  of  prices.  The 
subsidy  equivalents  serve  as  shifters  of  supply  and  demand  quantity  equations 
toward  their  liberalized  positions. 
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Market  Clearing  Mechanisms 


The  market  clearing  mechanisms  are  similar  for  single  and  multiple  product 
models.  World  trade  for  a  product  is  summed  across  countries/regions;  the 
ratio  of  net  world  trade  to  world  supply  is  calculated;  then  the  world  price 
of  the  product  is  raised  if  this  ratio  is  negative  (the  world  is  a  net 
importer)  and  is  lowered  if  the  ratio  !•  positive.  A  damping  factor  allows 
the  user  to  change  the  responsiveness  of  price  adjustment  if  solution  problems 
occur.  The  multi-product  model  includes  this  type  of  mechanism  for  each 
product  so  that  a  fully  simultaneous  solution  is  obtained  with  all  markets 
cleared. 

The  models  are  solved  simply  by  executing  the  spreadsheet  in  which  they  are 
constructed  by  the  SWOPSIM  procedures.  The  equations  and  market  solution 
procedure  are  set  up  with  "circular”  references  so  that  once  the  solution 
procedure  is  begun,  it  continues  until  values  in  the  sheet  change  only  by  a 
small  amount  (the  model  has  settled  down  and  solved)  or  the  iteration  limit  is 
reached  (the  model  did  not  converge).  This  routine  in  the  spreadsheet  is,  in 
effect,  a  Gauss-Seidel  solution  procedure  for  a  set  of  simultaneous  equations. 


THE  PROCEDURE  FOR  CREATING  SWOPSIM  MODELS 

A  set  of  computer  procedures  and  programs  allow  the  user  to  specify  the  world 
to  be  modeled  and  then  create  country/region  spreadsheets  using  those 
specifications.  Base  quantity  and  price  data  are  then  added  to  the 
spreadsheets.  The  base  trade  data  must  be  balanced  on  a  world  basis. 
Elasticities  are  then  added  to  the  spreadsheets  and  programs  are  run,  using 
these  elasticities  and  base  data  to  add  equations  and  constant  terms  to  the 
spreadsheets.  Once  this  task  has  been  completed,  procedures  can  be  invoked  to 
create  world  single  and  multi-product  models  from  the  country/region 
spreadsheets.  These  models  are  placed  in  their  own  spreadsheets  and  can  be 
run  independently.  Figure  5  gives  an  overview  of  the  various  procedures  and 
programs  used  to  create  SWOPSIM  models.  This  is  followed  by  a  documented 
example  of  the  use  of  these  procedures  to  create  a  set  of  SWOPSIM  models.  The 
spreadsheets  and  their  source  BASIC  computer  programs  are  designed  to  use 
SupcrCalc3,  Release  2.  3/  However,  after  SuperCalc3  spreadsheets  are  created, 
they  can  be  converted  to  other  companies’  spreadsheets  by  conversion  programs. 

The  use  of  the  SWOPSIM  procedures  is  illustrated  with  the  assembly  of  a  small 
demonstration  world  agricultural  trade  model  called  DEMO.  DEMO  includes  three 
countries:  Cl,  C2,  and  RW  (rest-of-world),  and  nine  products — dairy  farm  milk 
(MK),  butter  and  cheese  (BC),  fluid  milk  (FM),  beef  (BF),  wheat  (WH),  corn 
(CN),  soybeans  (SB),  soymeal  (SM),  and  soyoil  (SO).  This  product  mix  allows 
the  full  exercise  of  SWOPSIM  capabilities,  including  derived  demand  and  Joint 
products . 

3/  SORCIM/IUS  Micro  Software,  SuperCalc3  (Release  2)  -  User’s  Guide  and 
Reference  Manual,  Second  ed. ,  rev.  1984,  San  Jose,  CA.  For  an  example  of  a 
dynamic  model  operating  in  a  SuperCalc3  spreadsheet  environment,  see:  The 
World  Grain,  Oilseeds,  and  Livestock  Model — A  Microcomputer  Version,  by 

Roningen,  Wainio,  and  Liu;  Staff  Report  AGES850826,  Econ.  Res.  Serv. ,  U.S. 
Dept.  Agr.,  Sept.  1985. 


11 


Figure  5 — The  Procedure  for  Creating  SWOPSIM  Models 


Items 

<Master  File  -  a  spreadsheet. 

Used  by  all  procedures. 

■(CREATE  -  a  procedure. 

Run  once  to  begin  a  new  model. 
Invokes  a  basic  program 
CSHEET . BAS  which  writes 
spreadsheet  "xqt"  files. 

EQUATION  -  a  procedure. 

Run  whenever  new  elasticities 
or  base  data  are  entered  and 
equations  need  to  be  updated. 
Invokes  EQNA.BAS  and  EQNB.BAS. 

“1 

-<  Country/region  spreadsheets. 

-<COMODMOD  -  a  procedure. 

Run  whenever  changes  in 
country/region  spreadsheet 
data  are  significant  enough 
to  change  equations  in  a 
product  model.  Can  be  run 
for  as  many  products  as  are 
specified  in  master  file. 
Invokes  COMOD.BAS  which  writes 
"xqt”  files  to  create  models. 

■eWorld  single  product 
models  -  spreadsheets.  One 
spreadsheet  can  be  created 
for  each  product  in  master 
file. 

-(WORLDMOD  -  a  procedure. 

Run  whenever  country/region 
changes  warrant  assembling 
a  new  model.  Invokes 
WORLD. BAS  which  writes  "xqt" 
file  which  writes  world  model. 

-»Full  world  multi-product 
model  -  one  large  spreadsheet. 


Comments 

Defines  world  to  be  modeled. 
Created  by  hand  or  cloned  from 
another  spreadsheet. 

Creates  country/region  spread¬ 
sheets  for  products  as 
defined  in  master  file. 
Elasticities  and  base  data  must 
be  entered  into  spreadsheets. 

Takes  elasticities  and  base  data 
entered  into  country/region 
spreadsheet  and  installs  standard 
constant  elasticity  equations  into 
the  same  spreadsheet.  Constant 
terms  (equation  intercepts)  are 
also  recalculated. 

Base  data,  elasticities,  policies. 

Takes  product  rows  from 
country/region  spreadsheets 
and  assembles  a  world  single 
product  model  in  a  new 
spreadsheet.  Installs  a  world 
market  clearing  mechanism  in 
the  model. 


Models  solve  (clear  world 
market)  with  own  price  only. 
Cross  prices  assumed  fixed. 


Create  multi-product  world 
SWOPSIM  model  with  full  world 
market  clearing  mechanism. 
Model  is  contained  in  a  large 
spreadsheet . 

One  fully  simultaneous  model 
which  clears  all  world  markets 
in  response  to  policy  changes. 
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Master  Model  File 


The  SWOPSIM  model  creation  procedure  requires  a  master  model  file.  This 
spreadsheet  file  is  a  matrix  where  the  country/region  and  product  coverage  of 
a  model  is  set.  The  columns  of  the  matrix  define  the  countries/regions  of  the 
model  while  the  rows  define  the  product  coverage. 

Marking  a  ”1”  at  the  intersection  of  a  row  and  column  indicates  that  a  supply- 
demand  equation  set  will  be  created  for  that  country/region  and  product.  An 
”S"  in  a  cell  means  that  an  equation  will  be  created  and  that  it  will  be 
possible  to  include  this  product  demand  variable  in  any  supply  equation.  This 
allows  joint  product  specification  of  equations.  A  ”D”  in  a  cell  indicates 
that  an  equation  will  be  created  and  that  this  product  supply  variable  can  be 
included  in  a  demand  equation.  This  allows  the  possibility  for  derived  demand 
specification.  A  ”SD"  or  ”DS”  marked  in  a  cell  allows  both  possibilities. 

All  country/region  and  product  combinations  do  not  have  to  have  equations. 

This  is  indicated  by  a  ” . ”  in  a  cell.  This  means  that  different  products  can 
have  different  regional  coverage  although  the  ’ rest-of-world’  residual  region 
must  be  initialized  with  data  so  that  the  world  is  adequately  modeled.  The 
last  column  of  the  master  matrix  (not  filled  with  .  .  .)  must  define  a  "rest- 
of-world”  region  which  must  include  all  products.  This  is  needed  to  close  the 
world  model.  Figure  6  shows  the  master  matrix  which  defines  the  DEMO  model. 
Note  that  WH  and  CN  equations  exist  for  all  regions  while  equations  for  all 
other  products  exist  only  for  C2  and  RW.  Base  world  prices  must  be  given  in 
column  AR. 

A  ”PRN”  file  of  the  master  model  file  must  be  saved  on  the  working  disk.  It 
is  used  as  a  reference  file  for  all  of  the  SWOPSIM  procedures.  Similarly,  a 
"CAL”  file  must  reside  on  the  working  disk  along  with  all  of  the  SWOPSIM  BASIC 
and  batch  (BAT)  programs.  The  inputs  to  the  basic  files  are  self  prompting 
but  the  batch  procedures  should  be  given  the  four  letter  name  of  the  master 
model  file  (in  the  example  here — DEMO).  Report  writing,  graphic  display  of 
output,  and  modification  of  standard  models  require  the  user  to  have  a  good 
working  knowledge  of  spreadsheet  techniques. 

Figure  6 — Master  Model  File  for  DEMO 
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Figure  6 — concluded 
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MK 

82 
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83 

FM 

84 

BF 

85 

UH 

86 

CN 

87 

SB 

88 

SM 

89 

SO 

90 

91 
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92 

93 

94 

CODE 

95 

96 

Cl 

97 

C2 

98 

RU 

99 

100 

- 

No  equation  created  for  this  country/region  and  product 
(however,  note  that  RU  region  MUST  have  equations  for  all 
commodities  to  close  world  model). 

Supply  and  demand  equations  created  for  this  country/region 
and  product. 

Supply  and  demand  equations  created  AND  demand  quantity  for  this 
country/region  and  product  can  be  included  in  any  SUPPLY  equation. 

Supply  and  demand  equations  created  AND  supply  quantity  for  this 
country/region  and  product  can  be  included  in  any  DEMAND  equation. 

Supply  and  4smand  equations  created  AND  demand  quantity  for  this 
country/region  and  product  can  be  included  in  any  SUPPLY  equation 
AND  supply  quantity  for  this  country/region  and  product  can  be 
included  in  any  DEMAND  equation. 


CODE  PRODUCT  GROUP 


total  MilK  (not  traded  -  used  to  make  BC  and  FM  below) 
Butter  and  Cheese 
Fluid  Milk  (not  traded) 

Beef  and  Veal 

UHeat 

CorN 

SoyBeans 

SoyMeal 

SoyOil 

other  possible  products 


CODE  COUNTRY/REGION  - 

Country  1 
Country  2 
Rest-of-World 

other  possible  countries/regions 


Creation  of  Country/Region  Spreadsheets 

A  procedure  (CREATE)  is  run,  having  been  given  the  four  letter  name  of  the 
master  file,  to  create  individual  country/region  spreadsheets  as  specified  in 
that  file.  Base  data  and  elasticities  are  then  entered  manually  into  these 
spreadsheets  in  order  to  initialize  and  parameterize  each  country/region 
model . 
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The  CREATE  procedure  is  simply  an  IBM  DOS  batch  file  which  erases  any  existing 
files  under  the  same  master  file  name  (save  old  ones  if  they  are  to  be 
preserved).  It  calls  a  basic  program  (C SHEET. BAS)  which,  in  turn  creates 
SuperCalc3  ".XQT"  files  which  are  run  from  a  batch  program  (also  created) 
called  LOAD.  This  sequence  results  in  the  creation  of  "blank"  spreadsheets 
with  zeros  for  base  data  and  elasticities  for  each  country/region  specified  in 
the  master  file. 

A  country/region  spreadsheet  contains  a  matrix  for  supply  and  demand 
elasticities  and  a  series  of  rows  for  each  product,  into  which  base  quantity 
and  price  data  can  be  entered.  Explanations  of  the  column  headings  for  the 
rows  containing  the  base  data  and  the  equations  are  given  in  figure  7. 


Figure  7 — Explanations  of  Column  Headings  for  Product 
Rows  in  Country/Region  Spreadsheet  (DEMO-RW  used  as  example) 


Column  Head  Explanation  ( *  -  items  to  be  entered  in  spreadsheet) 
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DSHIFT 
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LCNPRICE 

SCROSS 

DCROSS 

SCONST 
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SUPPLYEQ 

DEMANDEQ 

NTRADEEQ 

SUPPLYD 

DEMANDD 


Name  of  (RW)  region  spreadsheet  derived  from  (DEMO)  master  file 
Base  world  price  from  (DEMO)  master  file 
Base  producer  price  * 

Base  consumer  price  * 

Base  trade  price  (export  or  import)  * 

Base  exchange  rate  (domestic  currency  per  U.S.  $)  * 

Base  supply  quantity  * 

Base  demand  quantity  * 

Base  net  trade  quantity  * 

Exchange  rate  transmission  elasticity  *  (enter  at  top) 
Domestic-world  price  transmission  elasticity  *  (dflt.=l) 

Supply  shift  variable  *  (no  shift=0,  10$  increase*. 1) 

Demand  shift  variable  *  (  "  ) 

Producer  subsidy  equivalent  *  (add  only  in  model  sheets) 
Consumer  subsidy  equivalent  *  (  "  ) 

Import  subsidy  equivalent  *  (  "  ) 

Export  subsidy  equivalent  *  (  "  ) 

Import  quota  *  (mechanics  to  handle  must  be  added) 

Export  quota  *  (  "  ) 

Trade  price  equation  constant  [CT  in  equation  (27)] 

Producer  price  equation  constant  [MA  in  equation  (27)] 

Consumer  price  equation  constant  [MD  in  equation  (28)] 
Liberalized  producer  price  [equation  (31)] 

Liberalized  consumer  price  [equation  (11)] 

Supply  equation  cross  price  terms  (written  by  EQUATION) 

Demand  equation  cross  price  terms  (written  by  EQUATION) 

Supply  equation  constant  (written  by  EQUATION) 

Demand  equation  constant  (written  by  EQUATION) 

Supply  equation  (using  SCONST  and  SCROSS  -  written  by 
EQUATION  procedure) 

Demand  equation  (using  DCONST  and  DCROSS  -  written  by 
EQUATION  procedure) 

Net  trade  equation  (written  by  EQUATION  procedure) 

Supply  difference  (between  equation  and  base  quantity) 

Demand  difference  (  "  ) 
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Figure  7 — concluded 


NTRADED 

PRPRICED 

CNPRICED 

TDPRICED 

SUPPLY# 

PRPRICE# 

DEMAND# 

CNPRICE# 

NTRADE# 


Net  trade  difference  (  ”  ) 

Producer  price  difference  (between  eq.  and  base  value) 
Consumer  price  difference  (  "  ) 

Trade  price  difference  (between  equation  and  base  value) 
Percentage  change  in  supply  quantity  from  base 
Percentage  change  in  producer  price  from  base 
Percentage  change  in  demand  quantity  from  base 
Percentage  change  in  consumer  price  from  base 
Percentage  change  in  net  trade  quantity  from  base 


*  Columns  AQ  through  AZ  are  available  for  individual 

spreadsheet  modifications  (e.g.  quotas,  non-traded 
products,  etc.)*  These  columns  are  carried  along  from 
the  country/region  spreadsheets  into  the  model 
spreadsheets  by  SWOPSIM  procedures. 


Figure  8  shows  the  spreadsheet  created  from  the  DEMO  master  matrix  for  the 
region  RW.  The  sheet  would,  upon  creation,  have  zeros  in  the  elasticity 
matrices  but  elasticities  and  base  data  have  been  entered  by  hand  into  the 
sheet  for  use  by  other  SWOPSIM  procedures.  In  addition,  equations  have  been 
added.  Own  and  cross  price  elasticities  are  given  in  the  supply  (SUPPLY  EL) 
and  demand  (DEMAND  EL)  elasticity  matrices.  The  column  headings  of  these 
matrices  marked  with  product  codes  preceded  by  "D"  and  "S",  respectively, 
allow  the  insertion  of  a  constant  elasticity  which  will  be  used  for  the  marked 
product  in  the  demand  and  supply  equations.  For  example,  an  elasticity  of  1 
in  the  supply  elasticity  row  for  BC  below  DMK  means  that  the  MK  demand 
variable  will  be  included  in  the  BC  supply  equation  with  a  constant  elasticity 
of  1.  Similarly,  a  .6  under  SBF  in  the  CN  row  of  the  demand  matrix  means  that 
the  beef  supply  variable  will  be  included  in  the  corn  demand  equation  with  a 
constant  elasticity  of  .6  (which  should  be  the  historical  share  of  total  CN 
demand  going  to  feed  BF.  The  world  prices  from  the  master  DEMO  file  have  been 
put  in  column  B  (starting  in  row  27).  The  column  headings  for  the  product 
rows  (row  26)  are  explained  in  figure  7  above. 

Immediately  after  the  country  sheets  are  created,  zeros  will  appear  in  the 
cells  requiring  data  (e.g.  C27  in  DEMO-RW  -  producer  price  for  MK).  Other 
cells  such  as  AC27  in  DEMO-RW  will  be  blank  and  will  be  filled  by  the  EQUATION 
procedure.  If  an  elasticity  is  to  be  omitted  from  a  model,  this  is 
accomplished  by  simply  leaving  a  .00  in  the  cell  of  the  elasticity  matrices 
(or  a  space  under  the  designation  of  demand  and  supply  quantity  variables  for 
equations ) . 

Finally,  column  AQ  shows  some  content  for  MK  and  FM.  Recall  that  this  column 
(through  AZ)  can  be  used  to  customize  equations  in  countries.  In  this  case, 
an  equation  (to  be  described  later)  is  inserted  to  prevent  MK  and  FM  from 
being  traded  at  all.  The  product  rows  from  column  A  through  column  AZ  are 
carried  along  into  all  model  spreadsheets  created  by  SWOPSIM  procedures.  The 
extra  cells  can  be  used  to  modify  particular  equations,  create  welfare 
calculations,  store  protection  information,  etc. 
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Figure  8 — Sample  Spreadsheet  for  DEMO-RW 
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Figure  5 — concluded 
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Addition  of  Equations  to  Country/Region  Spreadsheets 


A  batch  procedure  (EQUATION)  invokes  two  basic  programs  (EQNA  and  EQNB)  which 
take  the  elasticities  entered  into  the  country  spreadsheet  and  writes  standard 
equations  in  the  appropriate  columns  of  the  spreadsheet.  The  term  EQUATION 
should  be  typed  in  followed  by  the  four  letter  name  of  the  master  model  file 
to  be  used.  The  programs  also  calculate  the  constants  (intercepts)  for  the 
equations  from  the  base  data.  Note  that  the  equations  themselves  are  broken 
up  into  parts  in  the  spreadsheet.  Cross  price  terms  of  the  equations  are 
contained  in  a  separate  cell  from  the  own  price  portion.  The  equations  do  not 
contain  references  to  cells  containing  elasticities;  rather,  they  contain  the 
elasticities  themselves.  This  allows  the  equations  to  be  copied  by  other 
programs  into  world  model  files.  This  means  that  if  elasticities  (or  base 
data)  are  changed,  equations  and  constants  must  be  recreated  via  the  EQUATION 
procedure. 

Listings  of  these  three  programs  are  provided  in  Appendix  A.  Figure  9  shows 
the  actual  equations  and  constants  inserted  by  the  procedures  into  the  model 
file  DEMO-RW.  Figure  9  also  shows  the  liberalized  price  formulas  which  are 
created  by  the  CREATE  procedure  (columns  W  and  X).  These  standard  formulas 
have  features  including  logical  switches  to  prevent,  for  example,  the 
continued  removal  of  an  export  subsidy  if  the  country  has  become  an  importer 
in  the  course  of  solution.  Also,  prices  are  prevented  from  becoming  negative 
and  thus  causing  solution  problems.  The  liberalized  prices  produced  in  these 
cells  are  the  ones  referenced  in  the  supply  and  demand  equations. 


Figure  9 — Equations  for  DEMO-RW 
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Figure  9 — concluded 
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Creation  of  World  Single  Product  Models 

A  procedure  (COMODMOD)  invokes  a  basic  program  (COMOD)  which  reads  the  master 
file  and  the  individual  country/region  spreadsheet  files  and  creates  a  world 
single  product  model  spreadsheet  for  the  selected  product.  The  world  product 
model  adds  world  trade  market  clearing  conditions  and  a  world  solution  price 
mechanism  to  country/region  equations.  The  model  will  clear  the  world  trade 
market  for  the  product  simply  by  recalculating  the  spreadsheet.  This  is  done 
mechanically  in  a  GAUSS-SEIDEL  fashion  by  the  spreadsheet’s  ability  to  handle 
circular  cell  references.  Insertion  of  policy  variable  values  and 
recalculation  of  the  sheet  gives  estimates  of  changes  in  various  quantities 
and  prices  from  base  values.  The  product  model  spreadsheet  also  includes 
several  "indicator"  variables.  More  indicators  and  graphs  can  be  added  as 
templates  by  the  user  once  a  particular  model  has  been  created. 

Figure  10  shows  a  spreadsheet  model  for  DEMO^WH  created  with  the  COMODMOD 
procedure.  The  WH  product  model  consists  of  a  row  containing  data, 
parameters,  and  equations  for  each  region  plus  an  extra  row  containing  the 
world  market  clearing  mechanism.  The  column  headings  are  the  same  ones 
appearing  in  the  country/region  spreadsheets  and  explained  in  figure  7.  Note 

that  in  the  world  single  product  models,  quantities  are  functions  of  "own” 
prices  only,  since  cross  prices  do  not  change  in  the  "single”  product  model. 
These  models  are  useful  in  themselves  for  "quick"  policy  analysis  and  as  an 
intermediate  step  in  preparing  a  "solvable"  world  multi-region  multi-product 
model . 


Figure  10 — DEMO^WH  Single  Product  World  Model 
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Figure  10 — concluded 
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The  world  single  product  (as  well  as  the  full  multi-product)  models  have  a 
•’damping"  parameter  in  the  solution  row.  This  is  set  at  one  by  default.  But, 
if  oscillatory  solution  problems  occur,  this  parameter  can  be  set  to  smaller 
values  in  order  to  allow  smaller  changes  in  prices  in  each  iteration.  Figure 
10  also  shows,  in  the  rightmost  columns,  some  extra  variables  which  are 
derived  indicators.  These  variables  (SUPPLY#,  etc.)  were  also  copied  from  the 
country/region  spreadsheets  by  the  C0M0DM0D  procedure.  They  serve  as  quick 
indicators  of  results  of  a  policy  change  simulation.  A  user  could  add  more 
indicators  in  the  form  of  a  "template"  spreadsheet  which  can  be  added  to  any 
product  model.  This  technique  allows  the  user  to  add  equations,  graphs, 
indicators,  anything  "doable"  in  spreadsheets  to  basic  model  spreadsheets  one# 
they  have  been  defined  and  created  and  adds  greatly  to  the  flexibility  and 
convenience  of  modeling  in  the  micro  computer  spreadsheet. 

Creation  of  a  World  Multi-Product  Model 


The  final  procedure  (W0RLDM0D)  creates  a  full  simultaneous  multi-region  multi¬ 
product  model  from  country/region  spreadsheets.  In  this  model,  all  cross 
price  terms  are  active  in  model  equations  and  the  full  implications  of  any 
policy  change  can  be  calculated  out  with  total  world  product-region 
adjustment.  Figure  11  shows  DEMO-WD,  the  sample  world  model  created  from  the 
master  file  DEMO  and  the  three  country/region  spreadsheets. 

The  layout  of  the  full  world  model  stacks  the  country/region  product  rows 
below  one  another  and  follows  them  with  a  set  of  world  market  clearing 
conditions  and  equations  for  each  product  (rows  44-52  in  figure  11).  Totals 
for  world  trade  (the  absolute  value  summed  and  divided  by  two)  are  calculated. 
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Figure  11 — DEMO-WD  World  Model 
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Figure  11 — continued 
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Note  that  the  printout  of  this  spreadsheet  omits  blank  rows  to  save  space. 
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Figure  11 — continued 
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Figure  11 — concluded 
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SUGGESTIONS  FOR  THE  MODIFICATION  OF  STANDARD  SWOPSIM  MODELS 

Non-traded  Products 


Products  can  be  forced  to  always  equate  domestic  supply  and  demand  (and 
therefore  never  be  traded)  by  a  programming  trick  in  SuperCalc3.  The  model 
DEMO  does  this  for  MK  which  assumes  that  dairy  farm  milk  is  not  ever  traded. 
Figure  12  presents  the  equation  modification  (done  by  hand)  to  force  the  model 
to  obey  this  constraint. 


Figure  12 — Equations  to  Prevent  Trade  in  FM  in  DEMO-RW 


DEMO-RW 

W26  P=  "LPRPRICE 

W27  P=  MAX( U27-N27+IF( AE27<  0 , P27 , 0 ) 

-IF(AE27>=0,Q27,0)+T27»(F27"J27)*(B27~K27) ,  1)+.5»AQ27 

DEMO-RW 

AQ26  P=  "MKADJ 

AQ27  P=  IF( ITER=1 , 0 , AQ27-( W27*AH27/AC27 ) ) 


Cell  W27  adds  to  the  current  price  calculation,  half  of  the  contents  of  cell 
AQ27  (underlined  in  figure  12).  Cell  AQ27,  in  turn,  adds  a  small  amount  to 
itself  if  trade  is  negative  and  subtracts  a  small  amount  from  itself  if  trade 
is  positive.  Thus, if  trade  is  not  equal  to  zero,  then  the  price  is  adjusted 
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to  make  it  equal  zero.  This  iterative  process  occurs  in  conjunction  with 
other  simultaneous  changes  in  a  model. 

Quotas 


The  standard  models  contain  columns  for  quotas  hut  do  not  contain  calculation 
devices  for  changing  them  in  the  context  of  a  world  solution.  Equations  to 
accomplish  this  must  be  added  after  the  model  equations  have  been  created. 

For  the  situation  where  a  future  quota  is  to  be  imposed,  the  mechanics  can  be 
handled  in  a  manner  similar  to  the  above  procedure  for  dealing  with  non-traded 
products.  The  only  difference  is  that  changes  in  domestic  prices  have  to  be 
dependent  on  a  comparison  of  current  trade  to  the  quota  level  via  logical 
statements.  There  is  more  of  a  problem  in  dealing  with  quotas  already  in 
place,  however.  Here  the  standard  model  would  have  to  be  modified  in  such  a 
way  that  it  knew  at  what  domestic  price  the  quota  would  be  ineffective.  This 
means  knowing,  in  effect,  the  tariff  equivalent  of  the  quota.  If  that  is 
known,  it  can,  of  course  be  treated  as  a  negative  import  subsidy  equivalent  in 
the  standard  model  framework.  Otherwise  some  tricky  programming  would  be 
needed  to  install  the  quota  as  a  policy  manipulation  tool  into  a  model.  The 
benefit  of  doing  so  has  to  be  judged  in  each  case  and  should  be  compared  with 
the  cost  of  extra  spreadsheet  programming.  Similar  comments  apply  to  minimum 
prices,  production  quotas,  etc.  All  of  these  devices  can  be  programmed  in  but 
should  be  done  carefully  and  probably  only  after  the  "subsidy  equivalent” 
approach  has  been  tried  and  found  wanting. 

Templates  and  Graphics 

One  of  the  main  advantages  of  "spreadsheet”  models  is  that  all  of  the  useful 
and  simple  technology  of  the  spreadsheet  is  available  for  use  with  the  models. 
For  example,  templates  of  tables,  reports,  graphs,  indicators,  etc.  can  be 
appended  to  models  at  will  once  the  models  themselves  have  been  created  and 
parameterized.  These  techniques  make  possible  an  almost  instantaneous 
appraisal  of  the  results  of  a  policy  change.  As  an  example,  figure  13  is  a 
plot  of  the  result  of  a  removal  of  a  hypothetical  10  percent  export  subsidy 
for  WH  in  the  DEMO  exporting  country  C2 .  Note  that  the  direction  of  changes 
of  prices  and  quantities  are  identical  with  those  shown  in  figure  3. 


Figure  13 — Graph  of  the  Results  From  DEMO^WH  Policy  Change 


DEMO^WH 


Reru.Ua:  removal  of  10  percent  WH  export  subsidy  in  CZ 
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Non-Net  Trade  Problems 


The  standard  structure  for  a  SWOPSIM  model  follows  the  logic  of  the  net  trade 
model.  Essentially  this  type  of  model  assumes  that  a  domestic  and  traded  good 
are  perfect  substitutes  in  consumption.  A  little  imagination  allows  a  user  to 
modify  this  assumption  in  the  SWOPSIM  framework  by  defining  separate  products 
for  specific  purposes.  For  example,  if  a  SWOPSIM  model  is  to  be  used  for  the 
examination  of  bilateral  trade  flows,  separate  products  can  be  defined  for  the 
bilateral  situation  and  the  "rest-of-the-world”  situation.  The  separately 
defined  products  can  be  linked  by  cross  price  elasticities  in  the  supply  and 
demand  equations  which,  in  effect,  define  the  extent  of  their  non¬ 
substitutability  . 


CONCLUDING  COMMENTS 

If  they  are  adequate  to  the  task  at  hand,  smaller  SWOPSIM  models  are  easier  to 
work  with  than  larger  ones.  Solution  times  will  be  slower  and  solution 
problems  greater  the  larger  the  models  become.  This  implies  that  a  wise 
modeling  strategy  is  to  create  small  models  which  are  just  big  enough  to 
answer  the  question  at  hand.  SWOPSIM  is  designed  to  allow  researchers  to 
assemble  models  rapidly  from  a  store  of  elasticities  and  base  data  in  order  to 
analyze  particular  problems. 

Flexibility  of  SWOPSIM  models  is  limited  only  by  the  user’s  imagination.  More 
complexity,  such  as  inclusion  of  stock  equations  in  agricultural  models,  can 
be  done  by  adding  equations  to  cells  to  the  right  of  existing  ones.  Once 
customized  changes  have  been  entered  into  product  rows  of  a  country/region 
spreadsheet,  they  will  be  carried  along  as  equations  are  updated  or  single  or 
multi-product  models  are  re-created. 

As  is  true  with  any  modeling  scheme,  the  ultimate  test  is  what  is  done  with 
the  framework  in  terms  of  the  analysis  of  real  problems.  Further  modification 
and  documentation  of  SWOPSIM  models  will  have  to  appear  as  the  framework  is 
applied  to  the  problems  of  the  day. 
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APPENDIX  A— SWOPSIM  COMPUTER  PROGRAMS 


Table  A  outlines  the  family  of  programs  which  create  and  modify  SWOPSIM 
models.  The  table  is  followed  by  a  listing  of  the  master  file  and  the 
programs  themselves  which  use  the  master  file  to  create  SWOPSIM  models. 
Comments  within  the  programs  provide  documentation  for  a  programmer.  The 
programs  all  assume  the  input  and  output  information  is  on  the  "D:"  drive. 
This  assumption  can  be  changed  by  using  a  text  editor  to  change  to  another 
drive  designation  in  all  programs. 


Table  A  -  SWOPSIM  Computer  Programs 

Program 

Function 

Master . CAL 

A  master  spreadsheet  which  defines  the  region  and  product 
coverage  of  a  set  of  SWOPSIM  models.  This  spreadsheet  must  be 
specified  before  any  of  the  programs  are  run. 

CREATE.BAT 

A  (batch)  program  which  clears  old  models  and  invokes  the 
CSHEET  (basic)  program. 

CSHEET . BAS 

The  program,  given  the  master  file  structure,  creates  a  set  of 
spreadsheets  for  each  country  marked  in  the  master  file.  Each 
spreadsheet  includes  a  place  for  elasticities,  base  data,  and 
policy  summaries  in  the  form  of  subsidy  equivalents. 

EQUATION.BAT  This  program  invokes  two  basic  programs  (EQNA  and  EQNB)  which 


replace  existing  model  equations  with  new  ones  for  a  selected 
country/region.  The  equations  include  the  elasticities 
currently  documented  in  the  country/region  spreadsheet  that  is 
selected.  If  these  elasticities  are  changed,  this  program  and 
model  creation  programs  need  to  be  run  again  to  incorporate 
the  new  elasticities. 

EQNA. BAS 

The  first  of  the  equation  creation  programs.  This  program 
reads  the  master  file  and  writes  out  the  elasticities  from  the 
selected  country/region  file. 

EQNB . BAS 

The  second  equation  creation  program  calculates  intercepts  and 
writes  them  and  new  equations  in  appropriate  cells  of  the 
selected  spreadsheet.  Old  intercepts  and  equations  are 
replaced. 

COMODMOD.BAT  This  program  creates  a  world  (multi-region)  single  product 


COMOD.BAS 

model  in  a  spreadsheet  from  base  data  and  equations  in  the 
country/region  spreadsheets.  If  subsidy  equivalents  are 
changed,  the  product  model  spreadsheet  can  be  solved  for  a  new 
equilibrium  by  changing  the  world  product  price  enough  to 
clear  the  world  market.  Cross  price  effects  are  not  included 
in  the  single  product  model. 

This  basic  program  invoked  by  COMODMOD  creates  the  world 
single  product  model  spreadsheet. 
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Table  A — concluded 


WORLDMOD.BAT  This  batch  procedure  clears  the  old  world  model  away  and 

creates  a  new  multi-region  multi-product  model  from  the 
country/region  spreadsheets.  The  world  model  contains  all  of 
the  regions  and  products  specified  in  the  master  file  and 
includes  all  cross  product  effects. 

WORLD. BAS  The  basic  program  invoked  by  WORLDMOD  which  creates  the  full 

world  SWOPSIM  model. 


AGCTY.BAT  A  procedure  which  allows  the  aggregation  of  data  across 

country/region  spreadsheets.  This  is  useful  for  checking,  for 
example,  on  the  consistency  of  the  base  data  across 
countries/regions.  If  a  single  product  does  not  have  balanced 
world  trade  in  the  base  period,  any  model  spreadsheet  will 
begin  to  solve  even  if  no  policy  changes  have  been  introduced. 

AGCTY.BAS  The  basic  program  invoked  by  AGCTY. 


Program  Listings 

These  program  listings  expect  SuperCalc3  to  be  on  the  logged  drive  and  assume 
the  programs  themselves,  spreadsheets,  etc.  are  on  the  D:  drive.  "D:"  can  be 
globally  edited  in  all  programs  and  procedures  to  obtain  other  drive 
designations . 

CREATE . BAT 


Give  four  letter  name  of  master  spreadsheet  file  (e.g.  CREATE  DEMO). 

ERASE  D:*l-??.* 

ERASE  D:*l~??.* 

BASIC  D: CSHEET 
SDIR  D: ?? . XQT 
D:LOAD 

CSHEET. BAS 


10  REM  -  CSHEET  -  CREATE  COUNTRY/REGION  SPREADSHEETS  FROM  MASTER  FILE  SPECS. 
20  CLS  ’XQT  FILE  IS  CREATED  FOR  EACH  COUNTRY/REGION  IN  MASTER  FILE 
30  PR I NT "PROGRAM  TO  CREATE  NEW  BLANK  COUNTRY/REGION  SPREADSHEETS  FROM  MASTER" 
40  PRINT"FILE  (SPREADSHEET).  THIS  PROGRAM  WILL  REPLACE  OLD  SPREADSHEETS  -  " 
50  PRINT "ELASTIC I TIES  AND  BASE  DATA  MUST  BE  ADDED  TO  THE  NEW  SPREADSHEETS  IN" 
60  PRINT"0RDER  TO  CREATE  CONSTANTS  AND  EQUATIONS  WITH  THE  ’EQUATION’" 

70  PRINT "PROGRAM. " : PRINT 

80  PRINT: INPUT"ENTER  NAME  OF  MASTER  FILE" ;FILE$ 

90  IF  LEN( FILES )<  >4  THEN  20  ’MASTER  FILE  NAME  MUST  BE  4  CHARACTERS 
100  NAM$=FILE$+"-" 

110  PRINT : PRINT "READING  MASTER  FILE  -  "; FILES : PRINT 

120  DIM  PRM$( 0,122)  ’MASTER  FILE  CAN  CONTAIN  UP  TO  50  PRODUCT  GROUPS 
130  DIM  CYM$( 0,41)  ’MASTER  FILE  CAN  CONTAIN  UP  TO  41  COUNTRIES/REGIONS 
140  CL$="  ABCDEFGHIJKLMNOPQRSTUVWXY 
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ZAAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABBBCBDBEBFBGBHBIBJBKBLB 
MBNBOBPBQBRBSBTBUBVBWBXBYBZCACBCCCDCECFCGCHCIC JCKCLCMCNCOCPCQCRCSCTCUCVCWCXCYC 
ZDADBDCDDDEDFDGDHDIDJDKDLDMDNDODPDQDR" 

150  LCL=LEN(CL$)/2 
160  DIM  CLM$( 0,122) 

170  FOR  1=1  TO  LCL  ’122  COLUMNS  MAX. 

180  CLM$( 0 , I )=MID$( CL$ , ( 1-1 ) *2+1 , 2 ) : NEXT  I 
190  F$="D : "+FILE$+" . PRN" 

200  OPEN" I”,l, F$ 

210  DIM  D( 122 , 41 ) 

220  LINE  INPUT  01, W$  ’BEGIN  READING  TLIB.PRN  MASTER  FILE 
230  LINE  INPUT  01, W$ 

240  LINE  INPUT  01, W$ 

250  LINE  INPUT  01, W$ 

260  LINE  INPUT  01,CY$ 

270  LINE  INPUT  01, W$ 

280  STAR=(INSTR(CY$,"-")-ll)/3 

290  LCY=( LEN( CY$ )-8 )/3 

300  IF  STAR  <  LCY  THEN  LCY=STAR 

310  PRINT : PRINT "COUNTRIES /REGIONS  ARE: " : PRINT 

320  FOR  1=1  TO  LCY 

330  CYM$( 0 , I )=MID$( CY$ ,(I-1)*3+10,2) : PRINT  CYM$(0,I);"  ";:NEXT  I :PRINT 
340  LPR=0 

350  PRINT :PRINT"PRODUCT  GROUPS  ARE: " : PRINT 

360  LPR=LPR+1 

370  LINE  INPUT01 , W$ 

380  WP$=MID$( W$ ,5,4) 

390  PBLANK=INSTR( WP$ , "  " ) : IF  PBLANK=0  THEN  410 
400  WP$=RIGHT$(WP$,LEN(WP$)-1 ) :GOTO  390 

410  IF  MID$( W$ ,7,2)="  OR  MID$( W$ , 7 , 2 )="  "  THEN  490  ELSE 

PRM$(0,LPR)=WP$: PRINT  PRM$( 0 ,LPR ) ; "  "; 

420  FOR  J=1  TO  LCY  ’PUT  ONE,  TWO,  THREE,  FOUR  OR  ZERO  IN  D  MATRIX  FOR  EACH  ROW 
430  X$=MID$(  W$-,  (  J-l  )*3+9 , 3 ) 


440 

IF 

X$=" 

D" 

THEN  X$=" 

2" 

450 

IF 

X$=" 

S" 

THEN  X$=" 

3" 

460 

IF 

X$=" 

SD" 

OR  X$="  DS 

"  THEN  X$="  4" 

470  D( LPR , J )=VAL( X$ ) : NEXT  J 
480  GOTO  360 
490  CLOSE  1 

500  0PEN"0",1,"D: LOAD. BAT" 

510  FOR  1=1  TO  LCY 

520  W$="SC3  D : " +C YM$ (0,1): GOSUB  2520 

530  W$="ERASE  D: "+CYM$( 0,1 )  +  " .XQT" : GOSUB  2520 

540  NEXT  I 

550  CLOSE  1 

560  PRINT : PRINT 

570  LPR=LPR-1 

580  PRINT  "CONTINUING . ":PRINT 

590  GOSUB  1300 

600  FOR  K=1  TO  LCY  ’MAJOR  LOOP  TO  CREATE  FILE  FOR  EACH  COUNTRY/REGION 
610  FOR  1=1  TO  LPR  ’CHECK  WHETHER  ANY  PRODUCT  IS  INCLUDED  FOR  COUNTRY/REGION 
620  IF  D( I ,K) >0  THEN  650 
630  NEXT  I 

640  GOTO  2480  ’IF  NO  PRODUCT,  THEN  SKIP  COUNTRY/REGION 
650  F$="D : "+CYM$( C , K )+" . XQT" 
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660  0PEN"0",1,F$ 

670  W$  =  "/ GN ": GOSUB  2520  ’BEGIN  WRITING  SUPERCALC  COMMANDS  TO  XQT  FILE 
680  W$  =  " / GM" : GOSUB  2520 
690  W$="/FCA,TR" : GOSUB  2520 
700  W$="=A1": GOSUB  2520 

710  W$=CHR$ ( 34 )+NAM$+CYM$(0,K): GOSUB  2510 
720  W$="=C1"  :GOSUB  2520 

730  W$=CHR$( 34 )+"XRATE  (LC/US$)  =  ":GOSUB  2510 
740  W$="=E1" : GOSUB  2520 
750  W$="0": GOSUB  2520 
760  W$="=H1" : GOSUB  2520 

770  W$=CHR$( 34 )+"XRATE  ELASTICITY  =  ": GOSUB  2510 

780  W$="=J1" : GOSUB  2520 

790  W$="0"  :  GOSUB  2520 

800  W$="=A3": GOSUB  2520 

810  W$=CHR$( 34 )+"SUPPLY  EL”: GOSUB  2510 

820  W$="/FR3,TR": GOSUB  2520 

830  FOR  1=1  TO  LPR : IF  D(I,K)=0  THEN  860  ’WRITE  SUPPLY  ELAST.  MATRIX  COL.  HEADS 

840  W$="="+CLM$(0,I+l)+"3": GOSUB  2520 

850  W$=CHR$( 34 )+PRM$( 0,1): GOSUB  2510 

860  NEXT  I 

870  LG=0 

880  FOR  1=1  TO  LPR: IF  D(I,K)=3  OR  D(I,K)=4  THEN  890  ELSE  910  ’ADD  D.  VAR.  TO 
S. 

890  LG=LG+1:W$="="+CLM$(0,LPR+1+LG)+"3":G0SUB  2520 
900  W$=CHR$( 34 )+"D"+PRM$( 0,1): GOSUB  2510 
910  NEXT  I 

920  FOR  1=1  TO  LPR  ’WRITE  SUPPLY  MATRIX  ROW 
930  IF  D( I ,K)=0  THEN  1020 
940  W$="=A"+STR$( 1+3): GOSUB  2520 
950  W$=CHR$( 34 )+PRM$( 0,1): GOSUB  2510 

960  FOR  J=1  TO  LPR  ’WRITE  COLUMN  OF  ZERO  ELASTICITIES  FOR  SUPPLY  MATRIX  ROW 
970  IF  D(J,K)=0  THEN  1010 

980  W$="="+CLM$(0,J+1)+STR$(I+3):G0SUB  2520 
990  W$="0": GOSUB  2520 

1000  W$="/FE"+CLM$(0, J+1)+STR$( 1+3 )+",$": GOSUB  2520 
1010  NEXT  J 
1020  NEXT  I 

1030  W$="=A"+STR$( LPR+5 ) : GOSUB  2520 
1040  W$=CHR$( 34 )+ "DEMAND  EL": GOSUB  2510 
1050  W$="/FR"+STR$( LPR+5 )+" ,  TR" : GOSUB  2520 

1060  FOR  1=1  TO  LPR: IF  D(I,K)=0  THEN  1090  ’WRITE  DEM.  ELAST.  MATRIX  COL.  HEADS 

1070  W$="="+CLM$( 0 , 1+1 )+STR$(LPR+5 ) :GOSUB  2520 

1080  W$=CHR$( 34 )+PRM$( 0,1): GOSUB  2510 

1090  NEXT  I 

1100  LF=0 

1110  FOR  1=1  TO  LPR : IF  D(I,K)=2  OR  D(I,K)=4  THEN  1120  ELSE  1140  ’S.  VAR.  TO  D. 
1120  LF=LF+1 :W$="="+CLM$( 0 ,LPR+1+LF)+STR$( LPR+5 ) :GOSUB  2520 
1130  W$=CHR$( 34 )+"S"+PRM$( 0,1): GOSUB  2510 
1140  NEXT  I 

1150  FOR  1=1  TO  LPR  ’WRITE  DEMAND  ELASTICITY  ROW 
1160  IF  D( I ,K)=0  THEN  1250 
1170  W$="=A"+STR$( I+LPR+5 ) : GOSUB  2520 
1180  W$=CHR$( 34 )+PRM$( 0,1): GOSUB  2510 

1190  FOR  J=1  TO  LPR  ’WRITE  COLUMN  OF  ZERO  ELASTICITIES  FOR  SUPPLY  MATRIX  ROW 
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1200  IF  D( J ,K)=0  THEN  1240 

1210  W$="="+CLM$( 0 ,  J+l )+STR$( I+LPR+5 ) :G0SUB  2520 
1220  W$="0":G0SUB  2520 

1230  W$=" /FE"+CLM$(  0  ,  J+l  )+STR$(  I+LPR+5  )+",$":  GOSUB  2520 
1240  NEXT  J 
1250  NEXT  I 

1260  W$="=A"+STR$(2*LPR+8): GOSUB  2510  ’BEGIN  TO  WRITE  DATA  PART  OF  SPREADSHEET 
1270  W$=CHR$( 34 )+NAM$+CYM$( 0 , K) : GOSUB  2510 
1280  W$="/FR"+STR$(2*LPR+8)+",TR":G0SUB  2520 
1290  GOTO  1730 

1300  DIM  N$( 0 , 42 )  ’SUBROUTINE  TO  CREATE  DATA  COLUMN  HEADS 

1310  N$( 0 , 1 )="WDPRICE"  ’B 

1320  N$( 0 , 2 )="PRPRICE"  'C 

1330  N$(  0 , 3  )  =  "CNPRICE"  ’D 

1340  N$( 0 , 4 )="TDPRICE"  ’E 

1350  N$(0,5)="XRATE"  ’F 

1360  N$( 0,6)=” SUPPLY"  ’G 

1370  N$( 0 ,7 )="DEMAND"  ’H 

1380  N$( 0 ,8)="NTRADE"  ’I 

1390  N$( 0 , 9 )="XRATE  EL"  ’J 

1400  N$( 0 , 10 )="WDPT.EL"  ’K 

1410  N$( 0 , 11 )="SSHIFT"  ’L 

1420  N$( 0 , 12 )="DSHIFT"  ’M 

1430  N$( 0 , 13 )="PRSUBEQ"  ’N 

1440  N$( 0 , 14 )="CNSUBEQ"  ’0 

1450  N$( 0 , 15 )=" IMSUBEQ"  ’P 

1460  N$( 0 , 16 )="EXSUBEQ"  ’Q 

1470  N$( 0 , 17 )="IMQUOTA"  ’R 

1480  N$( 0 , 18 )= "EXQUOTA"  ’S 

1490  N$( 0 , 19 )="TDCONST"  ’T 

1500  N$( 0 , 20 )="PRCONST"  ’U 

1510  N$( 0 , 21 )="CNCONST"  ’V 

1520  N$( 0 , 22 )="LPRPRICE"  ’W 

1530  N$( 0 , 23 )="LCNPRICE"  ’X 

1540  N$( 0 , 24 )="SCROSS"  ’Y 

1550  N$( 0 , 25 )="DCROSS"  ’Z 

1560  N$( 0 , 26 )="SCONST"  ’AA 

1570  N$( 0 , 27 )="DCONST"  ’AB 

1580  N$( 0 , 28 )="SUPPLYEQ"  ’AC 

1590  N$( 0 , 29 )="DEMANDEQ"  ’AD 

1600  N$( 0 , 30 )="NTRADEEQ"  ’AE 

1610  N$( 0 , 31 )="SUPPLYD"  ’AF 

1620  N$( 0 , 32 )="DEMANDD"  ’AG 

1630  N$( 0 , 33 )="NTRADED"  ’AH 

1640  N$( 0 , 34 )="PRPRICED"  ’AI 

1650  N$( 0 , 35 )="CNPRICED"  ’AJ 

1660  N$(0,36)="TDPRICE^"  ’AK 

1670  N$( 0 , 37 )=" SUPPLY^"  ’AL 

1680  N$(  0 , 38  )  =  "PRPRICE?6"  ’AM 

1690  N$( 0 , 39 )="DEMAND$"  ’AN 

1700  N$(0,40)="CNPRICE%"  ’AO 

1710  N$( 0 , 4 1 )="NTRADE$"  ’AP 

1720  RETURN 

1730  FOR  1=1  TO  41  ’WRITE  DATA  COLUMN  HEADS  ON  SPREADSHEET 
1740  W$="="+CLM$( 0 , 1+1 )+STR$( 2*LPR+8) : GOSUB  2520 
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1750  W$=CHR$( 34 )+N$( 0,1): GOSUB  2510 
1760  NEXT  I 

1770  FOR  1=1  TO  LPR  ’LOOP  TO  WRITE  DATA  COLUMN  FOR  EACH  PRODUCT  GROUP 

1780  IF  D( I ,K)=0  THEN  2410  'SKIP  ROW  IF  PRODUCT  NOT  INCLUDED  FOR  COUNTRY 

1790  S$=RIGHT$( STR$( I+2*LPR+8) ,LEN(STR$( I+2*LPR+8) )-l )  ’SELECT  ROW 

1800  W$="=A"+S$: GOSUB  2520 

1810  W$=CHR$( 34 )+PRM$( 0,1): GOSUB  2510 

1820  T$=STR$( 1+4 ) 

1830  W$="=B"+S$: GOSUB  2520  ’LOAD  WDPRICE  FROM  MASTER  FILE 
1840  W$="/LD:"+FILE$+"  ,PAR"+T$+" :  AR"+T$+"  ,B"+S$:  GOSUB  2510 
1850  W$=M=C”+S$ : GOSUB  2520  ’WRITE  ZERO  WHERE  DATA  IS  TO  BE  ENTERED 
1860  W$="0": GOSUB  2520 

1870  W$="=D"+S$: GOSUB  2520  ’WRITE  ZERO  WHERE  DATA  IS  TO  BE  ENTERED 
1880  W$="0n : GOSUB  2520 

1890  W$="=E"+S$: GOSUB  2520  ’WRITE  ZERO  WHERE  DATA  IS  TO  BE  ENTERED 
1900  W$="0": GOSUB  2520 

1910  W$="=F"+S$:  GOSUB  2520  ’  XRATE  FROM  TOP  OF  SHEET 
1920  W$="E1" : GOSUB  2510 

1930  W$="=G"+S$: GOSUB  2520  ’PUT  ZERO  WHERE  DATA  IS  TO  BE  ENTERED 
1940  W$="0" :GOSUB  2520 

1950  W$="=H"+S$: GOSUB  2520  ’PUT  ZERO  WHERE  DATA  IS  TO  BE  ENTERED 

1960  W$="0" :GOSUB  2520 

1970  W$= " = I ” +S$ : GOSUB  2520  ’NET  TRADE 

1980  W$  =  ”G,,+S$+,,-H”+S$ : GOSUB  2510 

1990  W$="=J"+S$ : GOSUB  2520  ’XRATE  EL  FROM  TOP  OF  SHEET 
2000  W$="J1" : GOSUB  2510 

2010  W$="=K"+S$ : GOSUB  2520  ’SET  WORLD  PRICE  TRANSMISSION  ELASTICITY  TO  1 
2020  W$="l" :GOSUB  2520 

2030  W$="=L"+S$: GOSUB  2520  ’COLUMN  FOR  SUPPLY  SHIFT* 

2040  W$="0": GOSUB  2530 

2050  W$="=M"+S$: GOSUB  2520  ’COLUMN  FOR  DEMAND  SHIFT* 

2060  W$="0" : GOSUB  2530 

2070  W$="=T"+S$: GOSUB  2520  ’TRADE  PRICE  CONSTANT 

2080  W$="E"+S$+"/( (F"+S$+"~J"+S$+" ) * ( B"+S$+"~K"+S$+" ) )" :GOSUB  2510 
2090  W$="=U"+S$: GOSUB  2520  ’PRODUCER  PRICE  CONSTANT 
2100  W$="C"+S$+"-E,,+S$ : GOSUB  2510 

2110  W$="=V"+S$: GOSUB  2520  ’CONSUMER  PRICE  CONSTANT 
2120  W$=,,D"+S$+M-C,,+S$ : GOSUB  2510 

2130  W$="=W"+S$: GOSUB  2520  ’LIBERALIZED  PRODUCER  PRICE 
2140  W$="MAX( U”+S$+"-N"+S$+"+IF( AE"+S$+" <0 , P"+S$+" , 0 ) 

IF(  AE"+S$+"  >=0  ,  Qn+S$+”  ,  0  )  "+"+T"+S$+”  *  ( F”+S$+,,/sJ"+S$+"  )  *  (  B"+S$+'"'K',+S$+"  ) ,  1 )"  :G 
OSUB  2510 

2150  W$="=X"+S$: GOSUB  2520  ’LIBERALIZED  CONSUMER  PRICE 

2160  W$="MAX(W"+S$+M+N"+S$+"+0"+S$+"+V"+S$+" , 1 )" :GOSUB  2510 

2170  W$=” =AE”+S$ : GOSUB  2520  ’NET  TRADE  EQUATION 

2180  W$  =  ',AC"+S$+"-AD,,+S$ : GOSUB  2510 

2190  W$="=AF"+S$: GOSUB  2520  ’SUPPLY  DIFFERENCE 

2200  W$="AC”+S$+”-G”+S$ : GOSUB  2540 

2210  W$="=AG"+S$: GOSUB  2520  ’DEMAND  DIFFERENCE 

2220  W$  =  "AD"+S$+”-H,,+S$ : GOSUB  2540 

2230  W$="=AH”+S$: GOSUB  2520  ’NET  TRADE  DIFFERENCE 

2240  W$="AE"+S$+"-I"+S$:GOSUB  2540 

2250  W$="=AI”+S$: GOSUB  2520  ’PRODUCER  PRICE  DIFFERENCE 
2260  W$  =  "W"+S$+,,-Cn+S$ : GOSUB  2510 

2270  W$=,,=AJ”+S$: GOSUB  2520  ’CONSUMER  PRICE  DIFFERENCE 
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2280  W$="X"+S$+"-D"+S$:G0SUB  2510 

2290  W$="=AK"+S$:G0SUB  2520  ’*  CHANGE  IN  TRADE  PRICE 
2300  W$="(  (T"+S$+"*(F"+S$+"~J"+S$+" )  *  ( B"+S$+"/vK"+S$+"  )  )- 
E"+S$+" ) *100/E"+S$ : GOSUB  2530 

2310  W$="=AL"+S$: GOSUB  2520  ’*  CHANGE  IN  SUPPLY 
2320  W$  =  "AF"+S$+”*100/G',+S$ : GOSUB  2530 

2330  W$="=AM"+S$: GOSUB  2520  ’*  CHANGE  IN  PRODUCER  PRICE 
2340  W$="AI"+S$+"*100/C"+S$:G0SUB  2530 
2350  W$="=AN"+S$: GOSUB  2520  ’*  CHANGE  IN  DEMAND 
2360  W$="AG"+S$+"*100/H"+S$ : GOSUB  2530 

2370  W$="=AO"+S$: GOSUB  2520  '%  CHANGE  IN  CONSUMER  PRICE 
2380  W$="AJ "+S$+" *100/D"+S$ : GOSUB  2530 
2390  W$="=AP"+S$: GOSUB  2520  ’#  CHANGE  IN  NET  TRADE 
2400  W$="AH,,+S$+,,*100/I"+S$ : GOSUB  2530 
2410  NEXT  I 

2420  W$="=A1" : GOSUB  2520 
2430  W$=" ! w : GOSUB  2520 

2440  W$=” /SD: "+NAM$+CYM$( 0 ,K)+" , A" : GOSUB  2520  ’SAVE  THE  SPREADSHEET 
2450  REM  W$="/0DA1 : AP”+S$+” ,DD: "+NAM$+CYM$( 0 ,K) :GOSUB  2490  ’SAVE  PRN 
SPREADSHEET 

2460  W$=VQ,Y”  : GOSUB  2520 
2470  CLOSE  1 

2480  NEXT  K  ’END  OF  LOOP  FOR  EACH  PRODUCT  GROUP 
2490  SYSTEM 
2500  END 

2510  PRINT  #1 , W$ : PRINT  #1 , "/P" : RETURN  ’WRITE  TO  SHEET  AND  PROTECT  CELL 
2520  PRINT  01, W$: RETURN  ’WRITE  TO  SHEET 

2530  PRINT  01 ,W$ : PRINT  01 , "/FE,$" :PRINT  01 , "/P” : RETURN  ’WRITE  TO  SHEET, 
PROTECT  AND  USE  $  FORMAT 

2540  PRINT  01 ,W$:PRINT  01 , "/FE, I" :PRINT  01 , ”/P” : RETURN  ’WRITE  TO  SHEET, 
PROTECT  AND  USE  INTEGER  FORMAT 


EQUATION . BAT 


Give  the  4  letter  name  of  master 

SDIR  D:*1-??.CAL 
ERASE  D: TEST. PRN 
ERASE  D: ??? .PRN 
ERASE  D:*1-??.PRN 
BASIC  DrEQNA 
SC3  D : TEST 
ERASE  D : TEST . XQT 
BASIC  D:EQNB 
SC3  D : TEST 
ERASE  D: TEST. XQT 
ERASE  D: TEST. TXT 
ERASE  D: TEST. CAL 
ERASE  D: SUP. PRN 
ERASE  D: DEM. PRN 
SDIR  D:*1-??.CAL 

EQNA.BAS 


spreadsheet  (e.g.  EQUATION  DEMO). 


10  REM  -  EQNA  -  PART  A,  CREATE  EQUATIONS  FOR  COUNTRY/REGION  MODEL 
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20  REM  COUNTRY/REGION  SPREADSHEETS  MUST  HAVE  BASE  PRICE  AND  QUANTITY  DATA 

ADDED  TO  THEM  BEFORE  THIS  PROGRAM  IS  RUN 

30  CLS  ’SUP  AND  DEM  PRINT  FILES  ARE  TEMPORARILY  CREATED 

40  PRINT "PROGRAM  TO  SELECT  A  COUNTRY/REGION  FOR  EQUATION  WRITING" :PRINT 

50  PRINT "ELASTICITIES  AND  BASE  DATA  HAVE  TO  BE  ADDED  TO  COUNTRY/REGION" 

60  PRINT"FILES  BEFORE  THIS  PROGRAM  IS  RUN.":PRINT 
70  PRINT :INPUT"ENTER  NAME  OF  MASTER  FILE" ; FILES 
80  NAM$=FILE$+"-" 

90  IF  LEN( FILES) 04  THEN  30 

100  PRINT :PRINT"READING  MASTER  FILE  -  FILES : PRINT 

110  DIM  PRM$( 0,122)  ’MASTER  FILE  CAN  CONTAIN  UP  TO  70  PRODUCT  GROUPS 

120  REM  AN  ELASTICITY  LESS  THAN  -9.999  OR  GREATER  THAN  99.99  CAN  CAUSE  AN 

ERROR 

130  REM  IN  THE  EQUATION  GENERATION  PROCEDURE.  LARGE  PRODUCT  SETS  AND 
RESULTING 

140  REM  LARGE  ELASTICITY  MATRICES  NEED  LONGER  PROGRAM  RUNNING  TIMES 
150  DIM  CYM$( 0,41)  ’MASTER  FILE  CAN  CONTAIN  UP  TO  41  COUNTRIES/REGIONS 
160  CL$="  ABCDEFGHIJKLMNOPQRSTUVWXY 

ZAAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABBBCBDBEBFBGBHBIBJBKBLB 

MBNBOBPBQBRBSBTBUBVBWBXBYBZCACBCCCDCECFCGCHCICJCKCLCMCNCOCPCQCRCSCTCUCVCWCXCYC 

ZDADBDCDDDEDFDGDHDIDJDKDLDMDNDODPDQDR" 

170  LCL=LEN ( CLS ) / 2 
180  DIM  CLM$( 0,122) 

190  FOR  1=1  TO  LCL  ’122  COLUMNS  MAX. 

200  CLM$( 0 , I )=MID$( CLS ,(I-1)*2+1,2) :NEXT  I 
210  F$="D:"+FILE$+" .PRN" 

220  OPEN" I" , 1 ,F$ 

230  DIM  D( 122 , 41 ) 

240  LINE  INPUT  01,  W$  ’BEGIN  READING  TLIB.PRN  MASTER  FILE 
250  LINE  INPUT  01,  W$ 

260  LINE  INPUT  01, W$ 

270  LINE  INPUT  01, W$ 

280  LINE  INPUT  01,CY$ 

290  LINE  INPUT  01, W$ 

300  STAR=( INSTR(CY$, )-ll )/3 
310  LCY=(LEN(CY$)-8)/3 
320  IF  STAR  <  LCY  THEN  LCY-STAR 
330  FOR  1=1  TO  LCY 

340  CYM$( 0 , I )=MID$( CY$ ,(I-1)*3+10,2) :NEXT  I 
350  LPR=0 

360  PRINT :PRINT"PRODUCT  GROUPS  ARE: " : PRINT 

370  LPR-LPR+1 

380  LINE  INPUT01 , W$ 

390  WP$=MID$( W$ ,5,4) 

400  PBLANK=INSTR( WPS , "  " ) : IF  PBLANK=0  THEN  420 
410  WP$=RIGHT$(WP$ ,LEN(WP$ )-l ) :GOTO  400 

420  IF  MID$(W$  ,7,2  )  =  "  OR  MID$( W$ , 7 , 2  )  =  "  "  THEN  500  ELSE 

PRMS ( 0 , LPR ) =WP$ :PRINT  PRM$( 0 ,LPR ) ; "  »; 

430  FOR  J=1  TO  LCY  ’PUT  ONE,  TWO,  THREE,  FOUR  OR  ZERO  IN  D  MATRIX  FOR  EACH  ROW 
440  X$=MID$(W$ , ( J-l )*3+9 , 3 ) 

450  IF  X$="  D"  THEN  X$="  2" 

460  IF  X$="  S"  THEN  X$="  3" 

470  IF  X$="  SD"  OR  X$="  DS"  THEN  X$="  4" 

480  D(LPR,J)=VAL(X$):NEXT  J 
490  GOTO  370 
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500  PRINT : CLOSE  1:LPR=LPR-1 

510  PRINT :PRINT : PRINT"COUNTRIES/REGIONS  ARE: " : PRINT 

520  FOR  1=1  TO  LCY:PRINT  CYM$(0,I);"  " ; :NEXT  IjPRINT 

530  PRINT:PRINT:PRINT : INPUT"ENTER  2  DIGIT  COUNTRY/REGION  CODE";CY$ 

540  FOR  JC-1  TO  LCY  ’COUNTRY/REGION  IS  PEGGED  AND  CHECKED 
550  IF  CY$=CYM$( 0 , JC )  THEN  580 
560  NEXT  JC 
570  GOTO  510 

580  LF=0 :LG=0  ’COUNT  NUMBER  OF  QUANTITIES  INLCUDED  IN  S  &  D  EQUATIONS 
590  DIM  DEMQT( 50 ) , SUPQT( 50 ) : IDP0S=0 : ISPOS=0 

600  FOR  1=1  TO  LPR :  IF  D(I,JC)=2  OR  D(I,JC)=4  THEN  610  ELSE  640 

610  LF=LF+1 

620  IDPOS=IDPOS+l 

630  DEMQT( IDPOS )=I 

640  IF  D( I , JC )=3  OR  D(I,JC)=4  THEN  650  ELSE  680 

650  LG=LG+1 

660  ISPOS=ISPOS+l 

670  SUPQT( ISPOS)=I 

680  NEXT  I 

690  PRINT 

700  0PEN”0” , 1 , "D: TEST. TXT" 

710  W$=NAM$+CY$ 

720  PRINT  01, W$ 

730  PRINT  01, LPR 

740  PRINT  01, LG 

750  FOR  1=1  TO  LG 

760  PRINT  01 ,SUPQT( I ) :NEXT  I 

770  PRINT  01, LF 

780  FOR  1=1  TO  LF 

790  PRINT  01 , DEMQT ( I ) : NEXT  I 

800  FOR  1=1  TO  LPR 

810  PRINT  01 ,PRM$( 0,1) :NEXT  I 

820  CLOSE  1 

830  OPEN "O'M/'D: TEST. XQT”  ’WRITE  OUT  XQT  FILE  TO  GET  ELASTICITY  MATRICES 
840  W$="/LD: "+NAM$+CY$+" , A” :GOSUB  1000 
850  W$  =  "  / GB" : GOSUB  1000 
860  BC$="B" 

870  ECD$=CLM$( 0 , LPR+l+LF ) 

880  ECS$=CLM$( 0 ,LPR+1+LG) 

890  BR$="4 " 

900  ER$=RIGHT$( STR$( 3+LPR ) , LEN ( STR$ ( 3+LPR ) )-l ) 

910  W$="/FG6": GOSUB  1000 

920  W$="/OD"+BC$+BR$+" :  "+ECS$+ER$+"  ,DD:SUP"  :GOSUB  1000 
930  BR$=RIGHT$( STR$( 3+LPR+3 ) , LEN( STR$( 3+LPR+3 ) )-l ) 

940  ER$=RIGHT$( STR$( 3+LPR+2+LPR ) ,LEN( STR$( 3+LPR+2+LPR ) )-l ) 

950  W$  =  "/OD"+BC$+BR$+" :  ,,+ECD$+ER$+” ,DD: DEM” : GOSUB  1000 

960  W$  =  ’7Q,Y”  : GOSUB  1000 

970  CLOSE  1 

980  SYSTEM 

990  END 

1000  PRINT  01, W$: RETURN 
EQNB.BAS 


10  REM  -  EQNB  -  PART  B,  CREATE  CONSTANTS  AND  EQUATIONS  FOR  COUNTRY/REGION 
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20  REM  COUNTRY/REGION  SPREADSHEETS  MUST  HAVE  BASE  PRICE  AND  QUANTITY  DATA 
ADDED  TO  THEM  BEFORE  THIS  PROGRAM  IS  RUN 

30  CLS  ’A  COUNTRY/REGION  IS  SELECTED  AND  AN  XQT  FILE  OF  EQUATIONS  IS  CREATED 
40  OPEN " I'M," D: TEST. TXT” 

50  DIM  SUPQT( 70 ) ,DEMQT( 70 ) 

60  INPUT  #1 , CY$ : 

70  INPUT  til , LPR 

80  INPUT  til, LG 

90  FOR  1=1  TO  LG 

100  INPUT  til ,SUPQT( I ) :NEXT  I 

110  INPUT  til , LF 

120  FOR  1=1  TO  LF 

130  INPUT  til , DEMQT ( I ) : NEXT  I 

140  PRINT :PRINT"DOING  STUFF  FOR  MODEL  SHEET  - >  ";CY$: PRINT 

150  CLOSE  1 

160  DIM  SUP$( 7 ,70 ) ,DEM$( 7 , 70 ) 

170  OPEN" I" , 1 , "D:SUP .PRN" 

180- J1=0 

190‘  FOR  J=1  TO  LPR  +LG  STEP  22  ’READ  IN  SUPPLY  ELASTICITIES 

200  Jl-Jl+1 

210  FOR  1=1  TO  LPR 

220  LINE  INPUT  til ,W$ : SUP$( J1 , I )=W$ :NEXT  I 
230  NEXT  J 

240  CLOSE  1 : OPEN" I" , 1 , "D: DEM. PRN" : J1=0 

250  FOR  J=1  TO  LPR  +LF  STEP  22  ’READ  IN  DEMAND  ELASTICITIES 

260  J1=J1+1 

270  FOR  1=1  TO  LPR 

280  LINE  INPUT  #1 , W$ : DEM$ ( J 1 , I ) =W$ : NEXT  I 
290  NEXT  J 
300  CLOSE  1 

310  0PEN"0" , 1 , "D: TEST. XQT" 

320  W$="/LD: "+NA$+CY$+" , A" :GOSUB  1060 

330  W$="/UY"+STR$( 9+2*LPR )+" : AD"+STR$( 9 +3 "LPR ) : GOSUB  1060 

340  W$="/CG"+STR$( 9+2*LPR )  +  " :H"+STR$( 9+3*LPR )  +  " ,AC"+STR$( 9+2*LPR )  +  " ,V" : GOSUB 
1060 

350  W$="/UAC"+STR$(9+2*LPR)+":AD"+STR$(9+3*LPR): GOSUB  1060 
360  FOR  1=1  TO  LPR  ’MAJOR  LOOP  GOING  THROUGH  PRODUCTS 

370  FOR  J=1  TO  LPR  +LG  ’CHECK  TO  SEE  IF  PRODUCT  ROW  HAS  ANY  ELASTICITIES 
380  J2=FIX(J/23)+l 
390  J3=J-( J2-1 )*22 

400  IF  MID$( SUP$( J2 ,I),(J3-l)*6+4,3)<>"  "  THEN  430 

410  NEXT  J 
420  GOTO  940 

430  SI$=RIGHT$(STR$(I+2*LPR+8) , LEN( STR$( I+2*LPR+8 ) )-l ) 

440  W$="=Y"+SI$: GOSUB  1060  ’SUPPLY  CROSS  EFFECT 
450  W$="l*" 

460  FOR  J=1  TO  LPR  +LG 
470  J2=FIX( J / 23 )+l 
480  J3=J-( J2-l)"22 

490  IF  VAL(MID$(SUP$( J2 , I ) , ( J3-1 )"6+3,4 ) )=0  OR  I=J  THEN  560 
500  IF  J<=LPR  THEN  J1=J  ELSE  J1=SUPQT( J-LPR ) 

510  SJ$=RIGHT$( STR$( J l+2*LPR+8 ) ,LEN( STR$( Jl+2*LPR+8 ) )-l ) 

520  IF  J<=LPR  THEN  550 

530  W$=W$+"(AD"+SJ$+"~"+MID$(SUP$(  J2,I) ,(  J3-1 )  "6+2,5  )  +  "  )*" 

540  GOTO  560 
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550  W$=W$+" (W"+SJ$+"~”+MID$( SUP$( J2 , I ) , ( J3-1 )*6+2 , 5 )+")*" 

560  NEXT  J 

570  IF  LEN(W$ )<  >0  THEN  W$=LEFT$( W$ ,LEN( W$ )-l ) 

580  GOSUB  1060 

590  W$=”»Z”+SI$ : GOSUB  1060  ’DEMAND  CROSS  EFFECT"-* 

600  W$-"1*M 

610  FOR  J=1  TO  LPR  +  LF 
620  J2=FIX(J/23)+l 
630  J3=J-( J2-1 ) *22 

640  IF  VAL(MID$(DEM$(J2,I),(J3-l)*6+3,4))=0  OR  I=J  THEN  710 
650  IF  J <  =LPR  THEN  J1=J  ELSE  J1=DEMQT( J-LPR ) 

660  SJ$=RIGHT$(STR$(  Jl+2*LPR+8 ) , LEN( STR$(  Jl+2*LPR+8)  )-l) 

670  IF  J <  =LPR  THEN  700 

680  W$=W$+"  ( AC"+SJ$+,,/'"+MID$(  DEM$(  J2  ,I),(J3-l)*6+2,5)+")*" 

690  GOTO  710 

700  W$=W$+"(X”+SJ$+"~"+MID$(DEM$(  J2,I) ,( J3-1) *♦6+2,5)  +  ”  )*" 

710  NEXT  J 

720  IF  LEN( W$ ) <  >0  THEN  W$=LEFT$(W$ ,LEN(W$ )-l ) 

730  GOSUB  1060 

740  W$=”=AA"+SI$ : GOSUB  1060  ’SUPPLY  CONST 
750  W$=”G"+SI$+" / ( Y”+SI$+"* " 

760  I2=FIX( 1/23 )+l 
770  I3=I-( 12-1 ) *22 

780  IF  VAL(MID$(SUP$(I2,I),(I3-l)*6+3,4))=0  THEN  800 
790  W$=W$+"  ( C"+SI$+,,/v”+MID$(  SUP$(  I2,I),(I3-l)*6+2,5)+")H" 

800  W$=LEFT$(W$,LEN(W$ )-l ) 

810  W$=W$+")" : GOSUB  1060 

820  W$=”=AB”+SI$: GOSUB  1060  ’DEMAND  CONST 
830  W$="H"+SI$+"/(Z"+SI$+"*" 

840  IF  VAL(MID$(DEM$(I2,I),(I3-l)*6+3,4))=0  THEN  860 
850  W$=W$+"(D"+SI$+”~"+MID$(DEM$( 12 , I ) , ( 13-1 )*6+2 , 5 )+")*" 

860  W$=LEFT$( W$ ,LEN(W$ )-l ) 

870  W$=W$+" )”: GOSUB  1060 
880  W$=n ! ” : GOSUB  1060 

890  W$=” /SD:TEST  ,PAA”+STR$(  9+2**LPR)  +  ”  :  AB”+SI$ 

900  W$=”=AC,'+SI$: GOSUB  1060  ’SUPPLY  EQUATION 

910  W$="(  l+L,,+SI$+,,  )‘*AA"+SI$+,”*Y',+SI$+”*‘W”+SI$+,,^,,+MID$(SUP$(  I2,I),(I3- 
1 )*6+2 , 5 ) : GOSUB  1060 

920  W$="=AD"+SI$: GOSUB  1060  ’DEMAND  EQUATION 

930  W$="(  l+M”+SI$+,,  )<«AB',+SI$+,,‘*Zn+SI$+,,’»X,,+SI$+,,A”+MID$(DEM$(  I2,I),(I3- 
1) ”6+2,5 ):GOSUB  1060 
940  NEXT  I 

950  W$="»": GOSUB  1060 

960  W$="/SD:TEST,PAA"+STR$(9+2*LPR)+" :AB,,+SI$+” ,V” :GOSUB  1060 
970  W$=” /LD : TEST , PAA”+STR$( 9+2*LPR )+” : AB”+SI$+” , AA"+STR$( 9+2*LPR )+" , V" : GOSUB 
1060 

980  W$="=A1": GOSUB  1060 

990  W$=” /PY”+STR$( 9+2*LPR )+M : AD”+SI$ : GOSUB  1060 

1000  W$-"/SD:"+CY$+",OA": GOSUB  1060  ’SAVE  SPREADSHEET  WITH  EQUATIONS 

1010  REM  W$="/0DA1:AP"+SI$+" , DD : ”+CY$ : GOSUB  1060  ’SAVE  PRINT  FILE  OF  SHEET 

1020  W$-"/QfY": GOSUB  1060 

1030  CLOSE  1 

1040  SYSTEM 

1050  END 

1060  LL“INSTR( W$ , ")  ’ SUBROUTINE  TO  REMOVE  BLANKS  AND  WRITE  OUT  STRING 
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1070  IF  LL=0  THEN  1090 

1080  W$=LEFT$( W$ ,  LL-1 )+RIGHT$( W$ , LEN( W$ )-LL ) : GOTO  1060 
1090  PRINT  01 ,W$ : RETURN 

COMODMOD.BAT 


Give  4  letter  name  of  master  spreadsheet  file  (e.g.  C0M0DM0D  DEMO). 

SDIR  D:*1~??.CAL 
ERASE  D:TEST.XQT 
BASIC  D:C0M0D 
D:TEST 

COMOD.BAS 


10  REM  -  COMOD  -  CREATE  WORLD  PRODUCT  SPREADSHEET  FOR  SELECTED  PRODUCT 
20  REM  COUNTRY/REGION  SPREADSHEETS  MUST  HAVE  BASE  PRICE  AND  QUANTITY  DATA 
ADDED  TO  THEM  BEFORE  THIS  PROGRAM  IS  RUN 

30  CLS  ’XQT  FILE  IS  CREATED  FOR  PRODUCT  SELECTED  FROM  MASTER  FILE 
40  PRINT ’’PROGRAM  TO  CREATE  A  WORLD  PRODUCT  MODEL  FROM  COUNTRY/REGION" 

50  PRINT”SPREADSHEETS .  THE  SPREADSHEETS  SHOULD  HAVE  ELASTICITIES,  BASE  DATA," 
60  PRINT’’ AND  EQUATIONS  ADDED  TO  THEM  BEFORE  THIS  PROGRAM  IS  RUN." 

70  PRINT:  INPUT’’ENTER  NAME  OF  MASTER  FILE";  FILES 
80  IF  LEN( FILES) <>4  THEN  30 
90  NAM$=FILE$+"-" 

100  NAMC$=FILE$+"~" 

110  PRINT :PRINT"READING  MASTER  FILE  -  ’’; FILES : PRINT 

120  DIM  PRM$( 0,122)  'MASTER  FILE  CAN  CONTAIN  UP  TO  122  PRODUCT  GROUPS 
130  DIM  CYM$( 0,41)  ’MASTER  FILE  CAN  CONTAIN  UP  TO  41  COUNTRIES/REGIONS 
140  CL$  =  "  ABCDEFGHIJKLMNOPQRSTUVWXY 

ZAAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABBBCBDBEBFBGBHBIBJBKBLB 

MBNBOBPBQBRBSBTBUBVBWBXBYBZCACBCCCDCECFCGCHCICJCKCLCMCNCOCPCQCRCSCTCUCVCWCXCYC 

ZDADBDCDDDEDFDGDHDIDJDKDLDMDNDODPDQDR" 

150  LCL=LEN(CL$)/2 
160  DIM  CLM$( 0,122) 

170  FOR  1=1  TO  LCL  ’122  COLUMNS  MAX. 

180  CLM$( 0 , I )=MID$( CLS ,(I-1)*2+1,2) :NEXT  I 
190  F$=’’D:  ’’+FILES+’’  .PRN" 

200  OPEN "I" , 1 ,F$ 

210  DIM  D( 50 , 41 ) 

220  LINE  INPUT  01, W$  ’BEGIN  READING  MASTER  PRN  FILE 
230  LINE  INPUT  01, W$ 

240  LINE  INPUT  01, W$ 

250  LINE  INPUT  01, W$ 

260  LINE  INPUT  01,CY$ 

270  LINE  INPUT  01, W$ 

280  STAR  =  (INSTR(CY$,’’-’’)-ll)/3 

290  LCY=(LEN( CY$ )-8)/3 

300  IF  STAR  <  LCY  THEN  LCY=STAR 

310  PRINT : PRINT "COUNTRIES /REGIONS  ARE: " : PRINT 

320  FOR  1=1  TO  LCY 

330  CYM$( 0 , I )=MID$( CY$ ,(I-1)*3+10,2):PRINT  CYM$(0,I);’’  ";:NEXT  IrPRINT 
340  LPR-0 

350  PRINT: PRINT :PRINT’’PRODUCT  GROUPS  ARE:": PRINT 
360  LPR-LPR+1 
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370  LINE  INPUT#1 , W$ 

380  WP$=MID$( W$ ,5,4) 

390  PBLANK=INSTR(WP$,"  " ) : IF  PBLANK=0  THEN  410 
400  WP$=RIGHT$( WP$ , LEN( WP$ )-l ) : GOTO  390 

410  IF  MID$(  W$  ,7,2)  =  ”  OR  MID$(  W$ ,  7 , 2  )  =  "  "  THEN  490  ELSE 

PRM$( 0 ,LPR )=WP$ : PRINT  PRM$( 0 , LPR ) ; " 

420  FOR  J=1  TO  LCY  ’PUT  ONE,  TWO,  THREE,  FOUR  OR  ZERO  IN  D  MATRIX  FOR  EACH  ROW 
430  X$=MID$( W$ , ( J-l ) *3+9 , 3 ) 

440  IF  X$="  D"  THEN  X$="  2” 

450  IF  X$="  S"  THEN  X$="  3” 

460  IF  X$=”  SD"  OR  X$="  DS"  THEN  X$=”  4” 

470  D( LPR, J)=VAL(X$): NEXT  J 
480  GOTO  360 
490  CLOSE  1 
500  LPR=LPR-1 

510  PRINT:  PRINT:  INPUT ’’ENTER  PRODUCT  GROUP  CODE”  ;PR$ 

520  IF  LEN( PR$ )<  >2  THEN  510 

530  PRINT : PRINT” CONTINUING  WITH  ”;PR$;”  .  .  .”:PRINT 
540  0PEN”0”,1,”D: TEST. BAT” 

550  W$=” ERASE  D: ”+NAMC$+PR$+” . *" :GOSUB  1850 

560  W$=”SC3  D:TEST” :GOSUB  1850 

570  W$=” ERASE  D : TEST . XQT” : GOSUB  1850 

580  W$=" SDIR  D: ????^?? . CAL" : GOSUB  1850 

590  CLOSE  1 

600  FOR  K=1  TO  LPR 

610  IF  PR$=PRM$( 0 , K)  THEN  630 

620  NEXT  K 

630  PN=K 

640  F$="D : TEST . XQT" 

650  0PEN”0" , 1 , F$  'OPEN  PRODUCT  XQT  FILE 
660  PRINT:PRINT 
670  W$="/GN" : GOSUB  1850 
680  KI$=STR$(8+2*LPR) 

690  W$=" /LD : "+NAM$+CYM$( 0 ,LCY )+” , PB"+KI$+" : AZ"+KI$+" , B1 ” : GOSUB  1850 

700  W$=”=A1": GOSUB  1850 

710  W$=NAMC$+PRM$( 0 ,PN ) : GOSUB  1840 

720  W$  =  " / FR 1 , TR " : GOSUB  1850 

730  W$="/GM": GOSUB  1850 

740  FOR  K=1  TO  LCY  ’MAJOR  LOOP  TO  LOAD  EQUATIONS  FOR  EACH  COUNTRY/REGION 
750  PRINT  CYM$( 0 , K ) ; " 

760  IF  D(PN,K)=0  THEN  860  ’IF  PRODUCT  NOT  MODELED  FOR  COUNTRY,  THEN  SKIP 
770  KI$=STR$( 8+2*LPR ) 

780  W$»"/LD: "+NAM$+CYM$( 0 ,K)+" ,PA"+KI$+” : A"+KI$+" , A”+STR$(K+1 ) :GOSUB  1850 
790  KI$=STR$( PN+2*LPR+8)  ’ROW  LIFTED  FROM  COUNTRY  DATA  SET 

800  W$="/LD: "+NAM$+CYM$( 0 ,K)+" ,PB"+KI$+” :M”+KI$+" ,B”+STR$(K+1 )+" ,V" :GOSUB  1850 
’BASE  DATA 

810  W$="/LD: "+NAM$+CYM$( 0 ,K)+" ,PN"+KI$+" :S"+KI$+" ,N"+STR$(K+1 ) :GOSUB  1850 
’POLICIES 

820  W$="/LD: ”+NAM$+CYM$( 0 ,K)+" ,PT"+KI$+" :V"+KI$+" ,T"+STR$(K+1 )+",V" :GOSUB  1850 
’CONSTANTS 

830  W$="/LD: "+NAM$+CYM$( 0 ,K)+" ,PW"+KI$+" :X"+KI$+" ,W"+STR$(K+1 ) :GOSUB  1850 
’LIBERALIZED  PRICE  EQUATIONS 

840  W$="/LD: "+NAM$+CYM$( 0,K)+" ,PY"+KI$+" : AB"+KI$+" , Y"+STR$(K+1 )+" , V" :GOSUB 
1850  ’CONSTANTS 

850  W$=" /LD : "+NAM$+CYM$( 0 ,K)+” ,PAC"+KI$+" : AZ"+KI$+" , AC”+STR$(K+1 ) :GOSUB  1850 
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’EQUATIONS  AND  INDICATORS 
860  NEXT  K 

870  SL$=RIGHT$( STR$( LCY+3 ) , LEN( STR$( LCY+3 ) )-l )  ’SOLUTION  MECH.  ROW 
880  W$="/FR"+SL$+" ,TR": GOSUB  1850 

890  W$="=G"+SL$ : GOSUB  1850  ’BEGIN  CREATING  WORLD  MARKET  CLEARING  MECH. 
900  W$="l” :GOSUB  1850 

910  FOR  K=1  TO  LCY : KI$=STR$( PN+2*LPR+8 ) 

920  W$=" /LD:  "+NAM$+CYM$(  0 , K)+"  , PG"+KI$+"  :  G"+KI$+" , G"+SL$+"  ,  +  "  :  GOSUB  1850 
930  NEXT  K 

940  X$="0" :Y$="0" :Z$="0" :U$="0"  ’WRITE  BASE  AVERAGE  WORLD  TRADE 
950  FOR  J-l  TO  LCY :PS$=RIGHT$(STR$( J+l ) ,LEN( STR$( J+l ) )-l ) 

960  IF  J<  12  THEN  X$=X$+"+ABS(  I"+PS$+"  )  "  ELSE  GOTO  980 
970  GOTO  1030 

980  IF  J<22  THEN  Y$=Y$+"+ABS( I"+PS$+" )"  ELSE  GOTO  1000 
990  GOTO  1030 

1000  IF  J<32  THEN  Z$=Z$+"+ABS( I”+PS$+" )"  ELSE  GOTO  1020 

10-10  GOTO  1030 

1020  U$=U$+”+ABS( I "+PS$+” ) ” 

1030  NEXT  J 

1040  W$="*I"+SL$ : GOSUB  1850 

1050  W$=X$ : GOSUB  1840 

1060  W$="=J"+SL$: GOSUB  1850 

1070  W$=Y$ : GOSUB  1840 

1080  W$  =  ,'=K,,+SL$:  GOSUB  1850 

1090  W$=Z$ : GOSUB  1840 

1100  W$="=L"+SL$: GOSUB  1850 

1110  W$=U$: GOSUB  1840 

1120  W$=”=M”+SL$: GOSUB  1850 

1130  W$=CHR$( 34 )+"ABWDTRD": GOSUB  1840 

1140  W$*»,,=N”+SL$ : GOSUB  1850 

1150  W$=” (I” +SL$+" + J ” +SL$+” +K”+SL$+" +L ” +SL$+ ” ) / 2 ” : GOSUB  1840 
1160  X$="0'’  :Y$=”0” sZS^^O” :U$=”0”  ’WRITE  BASE  AVERAGE  WORLD  TRADE 
1170  FOR  J=1  TO  LCY:PS$=RIGHT$(STR$( J+l ) ,LEN( STR$( J+l ) )-l ) 

1180  IF  J<  12  THEN  X$=X$+”+ABS(  AE,,+PS$+" ) "  ELSE  GOTO  1200 
1190  GOTO  1250 

1200  IF  J<22  THEN  Y$=Y$+”+ABS( AE"+PS$+” ) "  ELSE  GOTO  1220 
1210  GOTO  1250 

1220  IF  J<32  THEN  Z$=Z$+"+ABS(  AE,,+PS$+” ) M  ELSE  GOTO  1240 
1230  GOTO  1250 

1240  U$=U$+"+ABS( AE"+PS$+" ) ” 

1250  NEXT  J 

1260  W$="=P"+SL$: GOSUB  1850 

1270  W$=X$: GOSUB  1840 

1280  W$="=Q"+SL$: GOSUB  1850 

1290  W$=Y$: GOSUB  1840 

1300  W$="=R"+SL$: GOSUB  1850 

1310  W$=Z$ : GOSUB  1840 

1320  W$=,,=S”+SL$: GOSUB  1850 

1330  W$=U$ : GOSUB  1840 

1340  W$="=T"+SL$: GOSUB  1850 

1350  W$=CHR$( 34 )+"ABWDTEQ": GOSUB  1840 

1360  W$=”=U'’+SL$: GOSUB  1850 

1370  W$=”  ( P,,+SL$+,,+Q"+SL$+"+R"+SL$+"+S"+SL$+,, ) /  2 "  :  GOSUB  1840 

1380  W$="=W"+SL$: GOSUB  1850 

1390  W$=CHR$( 34 )+”WDTRADE^" : GOSUB  1840 
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1400  W$="=X"+SL$ : GOSUB  1850 
1410  W$="/FE,$": GOSUB  1850 

1420  W$=" ( U"+SL$+”-N"+SL$+" )*100/N"+SL$ : GOSUB  1840 

1430  W$="=Y"+SL$: GOSUB  1850 

1440  W$=CHR$( 34 )+"WDPRICE*" : GOSUB  1840 

1450  W$="=Z"+SL$ : GOSUB  1850 

1460  W$="/FE,$": GOSUB  1850 

1470  W$="  ( AD"+SL$+"-AB"+SL$+"  )  *100/AB"+SL$ : GOSUB  1840 

1480  W$=”=AJ”+SL$: GOSUB  1850 

1490  W$=CHR$( 34 )+"SUPDEM£": GOSUB  1840 

1500  W$="=AK"+SL$: GOSUB  1850 

1510  W$="/FE,$": GOSUB  1850 

1520  W$=" ( SUM( AC1 : AC”+STR$( LCY+1 )  +  " )-G”+SL$+" ) * 100/G"+SL$ : GOSUB  1840 

1530  W$="=G"+SL$: GOSUB  1840 

1540  W$="=AD"+SL$: GOSUB  1850 

1550  W$=”B"+STR$( 1+LCY ) : GOSUB  1840 

1560  W$="=AC"+SL$: GOSUB  1850 

1570  W$=CHR$( 34 )+"LWDPRICE" : GOSUB  1840 

1580  W$="=AB"+SL$: GOSUB  1850 

1590  W$=”/CB"+STR$( 1+LCY)+" : B"+STR$( 1+LCY)+" , AB”+SL$ : GOSUB  1840 

1600  W$="=AA"+SL$: GOSUB  1850 

1610  W$=CHR$( 34 )+"WDPRICE” : GOSUB  1840 

1620  W$=,,=AE”+SL$: GOSUB  1850 

1630  W$="SUM(AE2:AE"+STR$(LCY+1 )+")": GOSUB  1840 

1640  W$="=AG"+SL$: GOSUB  1850 

1650  W$=CHR$(34)+"DAMP.WT": GOSUB  1840 

1660  W$="=AH"+SL$: GOSUB  1850 

1670  W$="l": GOSUB  1840 

1680  W$="*AI"+SL$ :GOSUB  1850 

1690  W$=,'AD,,+SL$+” ♦♦(  1-AH”+SL$+" ♦fAE”+SL$+" /G”+SL$+”  )"  : GOSUB  1840 

1700  FOR  K=1  TO  LCY 

1710  W$  =  ”=«B,,+STR$(K+1 )  :GOSUB  1850 

1720  W$=',/U',:  GOSUB  1850 

1730  W$="AI"+SL$: GOSUB  1840 

1740  NEXT  K 

1750  PRINT:PRINT 

1760  W$="=A1” : GOSUB  1850 

1770  W$=” ! " : GOSUB  1850 

1780  W$=”/SD: "+NAMC$+PRM$( 0 ,PN)+” , A” : GOSUB  1850  ’SAVE  THE  SPREADSHEET 

1790  REM  W$="/0DA1:AP"+SL$+",DD:"+NAMC$+PRM$(0,PN): GOSUB  1210 

1800  W$="/Q,Y": GOSUB  1850 

1810  CLOSE  1 

1820  SYSTEM 

1830  END 

1840  PRINT  01, W$: PRINT  01 , "/P" : RETURN  ’SAVE  A  STRING  AND  PROTECT  A  CELL 
1850  PRINT  01 ,W$ : RETURN  ’SAVE  A  STRING 

WORLDMOD.BAT 


Give  4  letter  name  of  master  spreadsheet  file  (e.g.  WORLDMOD  DEMO). 

SDIR  D:*l-??.* 

ERASE  D:*1-WD.* 

BASIC  D: WORLD 
SC3  D: TEST 
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ERASE  D:TEST.XQT 
SDIR  D:£l-?? . * 

WORLD. BAS 


10  REM  -  WORLD  -  CREATE  WORLD  PRODUCT  MODEL  SPREADSHEET  FROM  COUNTRY/REGION 
SPREADSHEETS 

20  REM  COUNTRY/REGION  SPREADSHEETS  MUST  HAVE  PRICE  AND  QUANTITY  BASE  DATA 

ADDED  TO  THEM  BEFORE  THIS  PROGRAM  IS  RUN 

30  CLS  ’WORLD  FILE  IS  CREATED  FROM  COUNTRY/REGION  FILES 

40  PRINT "PROGRAM  TO  CREATE  A  WORLD  MULTI-REGION  MULTI-PRODUCT  MODEL  FROM" 

50  PRINT "COUNTRY/REGION  SPREADSHEETS.  THE  SPREADSHEETS  MUST  CONTAIN  BASE" 

60  PRINT"DATA,  ELASTICITIES,  AND  EQUATIONS  BEFORE  THE  WORLD  MODEL  IS" 

70  PRINT "CREATED  WITH  THIS  PROGRAM" : PRINT 
80  PRINT :INPUT"ENTER  NAME  OF  MASTER  FILE" ; FILES 
90  IF  LEN( FILES) <>4  THEN  30 
100  NAM$=FILE$+"-" 

110  PRINT :PRINT"READING  MASTER  FILE  -  "; FILES : PRINT 

120  DIM  PRM$( 0,122)  ’MASTER  FILE  CAN  CONTAIN  UP  TO  122  PRODUCT  GROUPS 
130  DIM  CYM$( 0,41)  ’MASTER  FILE  CAN  CONTAIN  UP  TO  41  COUNTRIES/REGIONS 
140  CL$="  ABCDEFGHIJKLMNOPQRSTUVWXY 

ZAAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABBBCBDBEBFBGBHBIBJBKBLB 

MBNBOBPBQBRBSBTBUBVBWBXBYBZCACBCCCDCECFCGCHCICJCKCLCMCNCOCPCQCRCSCTCUCVCWCXCYC 

ZDADBDCDDDEDFDGDHDIDJDKDLDMDNDODPDQDR" 

150  LCL=LEN(CL$)/2 
160  DIM  CLM$( 0,122) 

170  FOR  1=1  TO  LCL  ’122  COLUMNS  MAX. 

180  CLM$( 0 , I )=MID$( CL$ ,(I-1)*2+1,2) :NEXT  I 
190  F$="D: "+FILE$+" .PRN" 

200  OPEN" I" , 1 ,F$ 

210  DIM  D( 50 , 4 1 ) 

220  LINE  INPUT  01, W$  ’BEGIN  READING  TLIB.PRN  MASTER  FILE 
230  LINE  INPUT  01, W$ 

240  LINE  INPUT  01, W$ 

250  LINE  INPUT  01, W$ 

260  LINE  INPUT  01,CY$ 

270  LINE  INPUT  01, W$ 

280  STAR=( INSTR( CY$ ,"-")-ll)/3 

290  LCY=(LEN(CY$)-8)/3 

300  IF  STAR  <  LCY  THEN  LCY=STAR 

310  PRINT : PRINT"COUNTRIES/REGIONS  ARE: " : PRINT 

320  FOR  1=1  TO  LCY 

330  CYM$( 0 , I )=MID$( CY$ ,(I-1)*3+10,2):PRINT  CYM$(0,I);"  ";:NEXT  I:PRINT 
340  LPR=0 

350  PRINT : PRINT : PRINT"PRODUCT  GROUPS  ARE: " : PRINT 

360  LPR=LPR+1 

370  LINE  INPUT01 ,W$ 

380  WP$=MID$( W$ ,5,4) 

390  PBLANK=INSTR(WP$,"  " ) : IF  PBLANK=0  THEN  410 
400  WP$=RIGHT$( WPS , LEN( WP$ )-l ) : GOTO  390 

410  IF  MID$( W$ ,7,2)="  OR  MID$( W$ , 7 , 2 )="  "  THEN  490  ELSE 

PRM$( 0 ,LPR )=WP$ : PRINT  PRM$( 0 , LPR ) ; "  "; 

420  FOR  J=1  TO  LCY  ’PUT  ONE,  TWO,  THREE,  FOUR  OR  ZERO  IN  D  MATRIX  FOR  EACH  ROW 
430  X$=MID$( W$ ,(J-l)*3+9,3) 

440  IF  X$="  D”  THEN  X$="  2" 
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4" 


450  IF  X$="  S"  THEN  X$="  3" 

460  IF  X$="  SD’’  OR  X$  =  "  DS"  THEN  X$=" 

470  D( LPR , J )=VAL( X$ ) : NEXT  J 
480  GOTO  360 
490  CLOSE  1 
500  LPR=LPR-1 

510  PRINT : PRINT : INPUT"RIGHTMOST  COLUMN  INCLUDED  (AZ  IS  DEFAULT )"; RCOLUMN$ 

520  IF  LEN( RCOLUMN$ ) <  >2  THEN  RCOLUMN$=’’AZ" 

530  PRINT :  PRINT ’’RIGHTMOST  COLUMN  IS  ’’;RCOLUMN$ 

540  0PEN’’0"  , 1 , "D : TEST .  XQT" 

550  W$=" / GM” : GOSUB  2620 
560  W$=" / GN” : GOSUB  2620 

570  FOR  K=1  TO  LCY  ’LOOP  TO  ADD  EACH  COUNTRY/REGION  FILE  TO  WORLD  FILE 
580  KP=( K-l ) * ( LPR+5 )+l  ’POSITION  FOR  EACH  NEW  FILE  ADDED 
590  DB$=STR$( KP+1 ) 

600  DE$=STR$( KP+5+2*LPR ) 

610  W$  =  "/LD :  ’’+NAM$+CYM$( 0 ,K)  +  ” , PA1 : S200 , A”+STR$( KP ) : GOSUB  2620  ’LOAD  BASE  DATA 
620  W$=" /LD : "+NAM$+CYM$( 0,K)+”,PT1:V200 , T"+STR$( KP )+” , V” : GOSUB  2620  ’LOAD 
PRICE  LINKAGE  EQUATION  CONSTANTS 

630  W$=»" /LD : "+NAM$+CYM$( 0 , K)+” , PW1 : Z200 , W”+STR$( KP ) : GOSUB  2620  ’LOAD  PRICE 
LINKAGE  EQUATIONS 

640  W$=’’/LD: ”+NAM$+CYM$( 0 ,K)+” ,PAA1 : AB200 , AA”+STR$(KP )+” , V" :GOSUB  2620  ’LOAD 
EQUATION  CONSTANTS 

650  W$=”/LD: ”+NAM$+CYM$( 0 ,K)+” ,PAC1 : ”+RC0LUMN$+”200 , AC"+STR$(KP ) :GOSUB  2620 
’LOAD  EQUATIONS 

660  W$=”/UA”+DB$+” :AZ"+DE$: GOSUB  2620  ’DELETE  ELASTICITY  MATRICES 

670  W$=”/DR"+DB$+”:’’+DE$: GOSUB  2620 

680  W$=”=A’’+STR$(  KP  ) :  GOSUB  2620 

690  W$  =  ’’/FR,  ,TL’’: GOSUB  2620 

700  W$=’’=A1”  :  GOSUB  2620 

710  NEXT  K 

720  KP=LCY*(LPR+5 )+l 

730  KPP=( LCY-1 ) * ( LPR+5 )+l 

740  W$=”=V”+STR$(KP ) : GOSUB  2620 

750  W$=CHR$( 34 )+”WDTRDl" :GOSUB  2610 

760  W$=’’=W”+STR$( KP ) : GOSUB  2620 

770  W$=CHR$( 34 )+”WDTRD2”: GOSUB  2610 

780  W$=”=AE"+STR$( KP ) : GOSUB  2620 

790  W$=CHR$(  34  )  +  ’’WDTRADE”:  GOSUB  2610 

800  W$=”/CA”+STR$(KPP+2 )+" : B’’+STR$( KPP+LPR+3 )+” ,A”+STR$(KP) :GOSUB  2620 

810  W$=’’ / CA”+STR$( KPP+3 )  +  ” : A” +STR$( KPP+LPR+3 )  +  " , AB"+STR$( KP+1 ) :GOSUB  2620 

820  W$=’’=A”+STR$(  KP  ) :  GOSUB  2620 

830  W$="/U” : GOSUB  2620 

840  W$=NAM$+’’WD":  GOSUB  2610 

850  W$  =  ’’=AB"+STR$( KP ) : GOSUB  2620 

860  W$=NAM$+”WD”: GOSUB  2610 

870  W$=”=E"+STR$(KP ) :GOSUB  2620 

880  W$=CHR$(  34  )  +  ’’SUPDWDl”:  GOSUB  2610 

890  W$="=F"+STR$( KP ) : GOSUB  2620 

900  W$=CHR$(  34  )  +  ’’SUPDWD2”  : GOSUB  2610 

910  W$=”=G"+STR$( KP ) : GOSUB  2620 

920  W$=CHR$( 34 )+"SUPDEMWD”: GOSUB  2610 

930  W$="**I”+STR$(KP  ) :  GOSUB  2620 

940  W$=CHR$(  34  )  +  ” ABWDTRD1 ’’ :  GOSUB  2610 

950  W$="=J”+STR$( KP ) : GOSUB  2620 
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960  W$=CHR$( 34 )+"ABWDTRD2" : GOSUB  2610 
970  W$="=K"+STR$(KP ) : GOSUB  2620 
980  W$=CHR$( 34 )+" ABWDTRD3" : GOSUB  2610 
990  W$="=L"+STR$( KP ) : GOSUB  2620 
1000  W$=CHR$( 34 )+"ABWDTRD4": GOSUB  2610 
1010  W$="=N"+STR$(KP): GOSUB  2620 
1020  W$=CHR$( 34  )  +  '*ABWDTRD”  :  GOSUB  2610 
1030  W$="=T"+STR$(KP ) :GOSUB  2620 
1040  W$=CHR$( 34 )+"SUPDEQl": GOSUB  2610 
1050  W$="=U"+STR$(KP ) : GOSUB  2620 
1060  W$=CHR$( 34 )+"SUPDEQ2" : GOSUB  2610 
1070  W$=”=AC"+STR$(KP ) : GOSUB  2620 
1080  W$=CHR$(34)+"SUPDEMEQ": GOSUB  2610 
1090  W$="=AD"+STR$( KP ) : GOSUB  2620 
1100  W$=CHR$( 34 )+"WDPRICE" : GOSUB  2610 
1110  W$="=X"+STR$(KP): GOSUB  2620 
1120  W$=CHR$( 34 )+"ABSWDTDl": GOSUB  2610 
1130. W$="=Y"+STR$(KP): GOSUB  2620 
1140  W$=CHR$( 34 )+”ABSWDTD2" : GOSUB  2610 
1150  W$="=Z"+STR$(KP) : GOSUB  2620 
1160  W$=CHR$( 34 )+"ABSWDTD3" : GOSUB  2610 
1170  W$="=AA"+STR$(KP) : GOSUB  2620 
1180  W$=CHR$(34 )+"ABSWDTD4" : GOSUB  2610 
1190  W$="=AF"+STR$( KP ) : GOSUB  2620 
1200  W$=CHR$(34)+"ABSWDTRD": GOSUB  2610 
1210  W$="=AG"+STR$(KP): GOSUB  2620 
1220  W$=CHR$(34)+"WEIGHT": GOSUB  2610 
1230  W$="=AH"+STR$(KP ) :GOSUB  2620 
1240  W$=CHR$(  34  )  +  ,,LWDPRICE"  : GOSUB  2610 
1250  W$="=AI"+STR$(KP): GOSUB  2620 
1260  W$=CHR$( 34 )+"SUPDEM*": GOSUB  2610 
1270  W$=”=AJ,,+STR$(KP  ) :  GOSUB  2620 
1280  W$=CHR$( 34 )+"WDPRICEDn : GOSUB  2610 
1290  W$=n=AK”+STR$( KP ) : GOSUB  2620 
1300  W$=CHR$( 34  J  +  '^DPRICE^” : GOSUB  2610 
1310  W$="=AL”+STR$( KP ) : GOSUB  2620 
1320  W$=CHR$( 34 )+"WDTRADE*" : GOSUB  2610 

1330  FOR  1=1  TO  LPR  ’CREATE  WORLD  TRADE  BASE  (AVERAGE  VALUE) 

1340  X$=,,0”  :  Y$=”0”  :Z$="0"  :U$=,,0” 

1350  FOR  J=1  TO  LCY : JP=( J-l )H(LPR+5 )+3 :PS$=RIGHT$( STR$( JP+I ) , LEN( STR$( JP+I ) )- 
1) 

1360  IF  D( I , J )=0  THEN  1440 

1370  IF  J< 12  THEN  X$=X$+”+ABS( I”+PS$+” ) "  ELSE  1390 
1380  GOTO  1440 

1390  IF  J<22  THEN  Y$=Y$+”+ABS(  I,,+PS$+” )”  ELSE  1410 
1400  GOTO  1440 

1410  IF  J<32  THEN  Z$=Z$+"+ABS( I”+PS$+” ) "  ELSE  1430 

1420  GOTO  1440 

1430  U$=U$+”+ABS(  I ,,+PS$+,, ) " 

1440  NEXT  J 

1450  W$="=I ”+STR$( KP+I ) : GOSUB  2620 

1460  W$=X$ : GOSUB  2610 

1470  W$="=J"+STR$( KP+I): GOSUB  2620 

1480  W$=Y$: GOSUB  2610 

1490  W$="=K"+STR$( KP+I ): GOSUB  2620 
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1500  W$=Z$ : GOSUB  2610 

1510  W$="=L”+STR$( KP+I ) : GOSUB  2620 

1520  W$=U$ : GOSUB  2610 

1530  W$="=N"+STR$( KP+I ) : GOSUB  2620 

1540 

W$="  ( I "+STR$(KP+I  )+"+J"+STR$( KP+I  )+”+K"+STR$( KP+I  )+”+L"+STR$( KP+I )  +  "  )/2"  : GOSUB 
2610 

1550  NEXT  I 

1560  FOR  1*1  TO  LPR  ’CREATE  WORLD  TRADE  SUM 
1570  X$="0" :Y$=M0" 

1580  FOR  J-l  TO  LCY:JP=( J-l )*(LPR+5 )+3:PS$-RIGHT$(STR$( JP+I ) ,LEN(STR$( JP+I ) )- 
1) 

1590  IF  D( I , J )=0  THEN  1610 

1600  IF  J<21  THEN  X$=X$+"+AE"+PS$  ELSE  Y$=Y$+"+AEM+PS$ 

1610  NEXT  J 

1620  W$="=V"+STR$( KP+I): GOSUB  2620 

1630  W$=X$: GOSUB  2610 

1640  W$="=W"+STR$( KP+I): GOSUB  2620 

1650  W$=Y$: GOSUB  2610 

1660  W$="=AE"+STR$( KP+I): GOSUB  2620 

1670  W$="0+V"+STR$(KP+I)+"+W"+STR$(KP+I) :GOSUB  2610 

1680  NEXT  I 

1690  FOR  1=1  TO  LPR  ’CREATE  BASE  SUPPLY-DEMAND  SUM 
1700  X$="0"  :Y$="0" 

1710  FOR  J=1  TO  LCY : JP=( J-l )*(LPR+5 )+3:PS$=RIGHT$(STR$( JP+I ) ,LEN( STR$( JP+I ) )- 
1) 

1720  IF  D( I , J )=0  THEN  1740 

1730  IF  J<21  THEN  X$=X$+"+G"+PS$  ELSE  Y$=Y$+"+G"+PS$ 

1740  NEXT  J 

1750  W$=” =E”+STR$(KP+I ) : GOSUB  2620 

1760  W$=X$ : GOSUB  2610 

1770  W$=”=F”+STR$(KP+I ) : GOSUB  2620 

1780  W$=Y$: GOSUB  2610 

1790  W$="=G"+STR$( KP+I): GOSUB  2620 

1800  W$="E"+STR$( KP+I )+"+F"+STR$( KP+I): GOSUB  2610 

1810  NEXT  I 

1820  FOR  1=1  TO  LPR  ’CREATE  SUPPLY  EQUATION  SUM  FOR  WORLD 
1830  X$=M0M:Y$=M0M 

1840  FOR  J=1  TO  LCY : JP=( J-l )*(LPR+5 )+3 :PS$»RIGHT$(STR$( JP+I ) , LEN( STR$( JP+I ) )- 
1) 

1850  IF  D( I , J )=0  THEN  1870 

1860  IF  J<21  THEN  X$=X$+,,+AC',+PS$  ELSE  Y$»Y$+M+AC”+PS$ 

1870  NEXT  J 

1880  W$»"»T"+STR$( KP+I): GOSUB  2620 

1890  W$=X$: GOSUB  2610 

1900  W$="=UM+STR$(KP+I ) : GOSUB  2620 

1910  W$=Y$ : GOSUB  2610 

1920  W$=’,=AC”+STR$( KP+I ) : GOSUB  2620 

1930  W$="T"+STR$( KP+I )+H+U”+STR$( KP+I): GOSUB  2610 

1940  NEXT  I 

1950  FOR  1=1  TO  LPR  ’CREATE  SUM  OF  ABSOLUTE  VALUE  OF  TRADE  FOR  WORLD 
1960  X$-"0M  :Y$«”0M  :Z$="0”  tUS^O” 

1970  FOR  J=1  TO  LCY:JP=( J-l )*»(LPR+5 )+3:PS$«RIGHT$(STR$( JP+I ) ,LEN(STR$( JP+I ) )- 
1) 

1980  IF  D( I , J )=0  THEN  2060 
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1990  IF  J< 12  THEN  X$=X$+"+ABS( AE"+PS$+" ) "  ELSE  GOTO  2010 
2000  GOTO  2060 

2010  IF  J<22  THEN  Y$=Y$+"+ABS( AE"+PS$+" ) ”  ELSE  GOTO  2030 
2020  GOTO  2060 

2030  IF  J<32  THEN  Z$=Z$+”+ABS( AE”+PS$+” ) M  ELSE  GOTO  2050 
2040  GOTO  2060 

2050  U$=U$+"+ABS(AE"+PS$+")M 
2060  NEXT  J 

2070  W$»”=X”+STR$( KP+I ) : GOSUB  2620 
2080  W$=X$: GOSUB  2610 
2090  W$-"=Y"+STR$(KP+I): GOSUB  2620 
2100  W$-Y$ : GOSUB  2610 
2110  W$*”«=Z”+STR$( KP+I ) : GOSUB  2620 
2120  W$-Z$ : GOSUB  2610 
2130  W$-"-AA"+STR$(KP+I): GOSUB  2620 
2140  W$«U$: GOSUB  2610 
2150  W$-"-AF"+STR$(KP+I) : GOSUB  2620 
2160 

W$="(X"+STR$(KP+I)+"+Y"+STR$(KP+I)+"+Z"+STR$(KP+I)+"+AA"+STR$(KP+I)+" )/2":G0SU 
B  2610 
2170  NEXT  I 

2180  FOR  1-1  TO  LPR  ’CREATE  WORLD  MARKET  CLEARING  MECHANISM 
2190  KP$«RIGHT$(STR$(KP+I ) ,LEN( STR$( KP+I ) )-l ) 

2200  W$*M /CB"+STR$(KPP+I+2 )  +  " : B”+STR$(KPP+I+2 )+” , AD"+KP$ : GOSUB  2620  ’COPY  IN 
WDPRICES 

2210  W$-"«AD"+KP$: GOSUB  2620 
2220  W$-"/U" : GOSUB  2620 
2230  W$-"»AG"+KP$: GOSUB  2620  ’WEIGHTS 
2240  W$-"l" : GOSUB  2610 

2250  W$*"*AH"+KP$ : GOSUB  2620  ’NEW  WORLD  PRICE 

2260  W$-"ADM+KP$+M*(1-AG"+KP$+"*AE"+KP$+,7AC"+KP$+" )": GOSUB  2620 
2270  W$-"/FE,$": GOSUB  2610 

2280  W$-"-AIM+KP$: GOSUB  2620  ’ADD  SUPPLY ^DEMAND  %  CHANGE  FROM  BASE 

2290  W$="(AC"+KP$+"-G"+KP$+")*100/G"+KP$: GOSUB  2620 

2300  W$-M/FE,$”: GOSUB  2610 

2310  W$«,,**AJ”+KP$ : GOSUB  2620 

2320  W$“"AH”+KP$+"-B,,+KP$ : GOSUB  2620 

2330  W$-"/FE,$": GOSUB  2610 

2340  W$-”-AK"+KP$: GOSUB  2620 

2350  W$*"AJ "+KP$+"M100/B”+KP$ : GOSUB  2620 

2360  W$-"/FE,$": GOSUB  2610 

2370  W$-W-ALW+KP$: GOSUB  2620 

2380  W$«M(  AF,,+KP$+,,-NM+KP$+M  )M100/N”+KP$ :  GOSUB  2620 
2390  W$-'7FE,$”: GOSUB  2610 

2400  FOR  J-l  TO  LCY  ’PUT  WORLD  PRICES  IN  COUNTRY/REGION  ROWS 
2410  JP-( J-l ) * ( LPR+5 )+3 :PS$-RIGHT$( STR$( JP+I ) , LEN ( STR$( JP+I ) )-l ) 

2420  W$-"-B"+PS$: GOSUB  2620 
2430  W$-"/U": GOSUB  2620 
2440  W$-"AD"+KP$: GOSUB  2620 
2450  W$-"/FE,$": GOSUB  2610 
2460  NEXT  J 

2470  W$«”“ADM+KP$ : GOSUB  2620 
2480  W$ - M AH M+KP$: GOSUB  2620 
2490  W$-M/FE,$M: GOSUB  2610 
2500  NEXT  I 
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2510  W$="/FGTR" :G0SUB  2620 
2520  PRINT: PRINT 

2530  W$="=AB"+STR$(KP): GOSUB  2620 
2540  REM  W$="!":G0SUB  1600 

2550  W$=" / SD : "+NAM$+"WD , A” : GOSUB  2620  ’SAVE  THE  SPREADSHEET 

2560  REM  W$="/0DA1 : AP"+STR$( KP+LPR+4 )+" ,DD: "+NAM$+"WD" : GOSUB  1600 

2570  W$="/Q,Y": GOSUB  2620 

2580  CLOSE  1 

2590  SYSTEM 

2600  END 

2610  PRINT  01,W$:PRINT  01 , "/P" : RETURN  ’SAVE  A  STRING  AND  PROTECT  A  CELL 
2620  PRINT  01, W$: RETURN  ’SAVE  A  STRING 

AGCTY.BAT 


BASIC  DjAGCTY 
SC3  D:TEST 
ERASE  D:TEST.XQT 

AGCTY.BAS 


10  REM  -  AGCTY  -  AGGREGATE  ACROSS  COUNTRY/REGION  DATA  SHEETS 
20  REM  COUNTRY/REGION  SPREADSHEETS 

30  CLS  ’AGGREGATE  SELECTED  PARTS  OF  COUNTRY/REGION  FILES 

40  PRINT : PRINT "PROGRAM  TO  AGGREGATE  SELECTED  PARTS  OF  COUNTRY/REGION  SHEETS" 

50  PRINT :INPUT"ENTER  NAME  OF  MASTER  FILE" ; FILES 
60  NAM$=FILE$+"-" 

70  IF  LEN( FILES) <>4  THEN  30 

80  PRINT : PRINT "READING  MASTER  FILE  -  " ;FILE$:PRINT 

90  DIM  PRM$( 0,122)  ’MASTER  FILE  CAN  CONTAIN  UP  TO  122  PRODUCT  GROUPS 
100  DIM  CYM$( 0,41)  ’MASTER  FILE  CAN  CONTAIN  UP  TO  41  COUNTRIES/REGIONS 
110  CL$="  ABCDEFGHIJKLMNOPQRSTUVWXY 

ZAAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABBBCBDBEBFBGBHBIBJBKBLB 

MBNBOBPBQBRBSBTBUBVBWBXBYBZCACBCCCDCECFCGCHCICJCKCLCMCNCOCPCQCRCSCTCUCVCWCXCYC 

ZDADBDCDDDEDFDGDHDIDJDKDLDMDNDODPDQDR" 

120  LCL=LEN( CL$ )/2 
130  DIM  CLM$( 0,122) 

140  FOR  1*1  TO  LCL  ’122  COLUMNS  MAX. 

150  CLM$(  0 , 1  )=MID$(  CL$  ,(I-1)*2+1,2):  NEXT  I 
160  F$="D: "+FILE$+" .PRN" 

170  OPEN" I" , 1 ,F$ 

180  DIM  D( 50 , 41 ) 

190  LINE  INPUT  01, W$  ’BEGIN  READING  TLIB.PRN  MASTER  FILE 
200  LINE  INPUT  01, W$ 

210  LINE  INPUT  01, W$ 

220  LINE  INPUT  01, W$ 

230  LINE  INPUT  01,CY$ 

240  LINE  INPUT  01, W$ 

250  STAR=(INSTR(CY$,"-")-ll)/3 
260  LCY=(LEN(CY$)-8)/3 
270  IF  STAR  <  LCY  THEN  LCY-STAR 
280  FOR  1=1  TO  LCY 

290  CYM$( 0 , I )=MID$( CY$ , (1-1)" 3+ 10, 2): NEXT  I 
300  LPR=0 

310  PRINT :PRINT"PRODUCT  GROUPS  ARE: " : PRINT 
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320  LPR=LPR+1 

330  LINE  INPUTS  ,W$ 

340  WP$=MID$( W$ ,5,4) 

350  PBLANK=INSTR( WP$ , "  " ) :  IF  PBLANK=0  THEN  370 
360  WP$=RIGHT$(WP$,LEN(WP$)-1 ) :G0T0  350 

370  IF  MID$(  W$ ,7,2)="  OR  MID$(W$,7,2 )="  "  THEN  450  ELSE 

PRM$( 0 , LPR )=WP$ : PRINT  PRM$( 0 ,LPR ) ; "  "; 

380  FOR  J  =  1  TO  LCY  ’PUT  ONE,  TWO,  THREE,  FOUR  OR  ZERO  IN  D  MATRIX  FOR  EACH  ROW 
390  X$=MID$( W$ ,(J-l)*3+9,3) 


4  00 

IF 

X$=" 

D" 

THEN  X$=" 

2" 

410 

IF 

X$  =  " 

S" 

THEN  X$=" 

3" 

420 

IF 

X$  =  " 

SD" 

OR  X$="  DS 

"  THEN  X$="  4" 

430  D(LPR, J )=VAL(X$) :NEXT  J 
440  GOTO  320 

450  PRINT : CLOSE  1 : LPR=LPR-1 : DIM  RCY$( 0 , 51 ) : IR=0 

460  CLS: PRINT: PRINT "POSSIBLE  COUNTRIES/REGIONS  ARE: " : PRINT 

470  FOR  1*1  TO  LCY: PRINT  CYM$(0,I);"  ";:NEXT  I: PRINT 

480  PRINT: PRINT" INCLUDED  SO  FAR:";:FOR  K=1  TO  IR: PRINT  "  " ;RCY$( 0 ,K) ; :NEXT 
K:PRINT 

490  PRINT :INPUT"ENTER  2  DIGIT  COUNTRY/REGION  CODE  TO  BE  IN  AGGREGATED  (’ENTER’ 
TO  QUIT)" ;RRCY$ 

500  IF  RRCY$="  "  OR  LEN(RRCY$)=0  THEN  590 

510  FOR  JC  =  1  TO  LCY  ’COUNTRY/REGION  IS  PEGGED  AND  CHECKED 

520  IF  RRCY$=CYM$( 0 , JC )  THEN  550 

530  NEXT  JC 

540  GOTO  460 

550  FOR  K-l  TO  IR:IF  RRCY$=RCY$( 0 ,K)  THEN  460 
560  NEXT  K 

570  IR=IR+1:RCY$(0,IR)=RRCY$ 

580  GOTO  460 

590  PRINT :PRINT"ADD  CELL  RANGE" :PRINT:PRINT: INPUT"TOP  LEFT  CELL  COLUMN 
(LETTER)  OF  BLOCK  TO  BE  ADDED" ;TLCOL$ 

600  INPUT"TOP  LEFT  CELL  ROW  (NUMBER)  OF  BLOCK  TO  BE  ADDED" ; TLROW$ 

610  PRINT: INPUT"BOTTON  RIGHT  CELL  COLUMN  (LETTER)  OF  BLOCK  TO  BE  ADDED" ; BRCOL$ 
620  INPUT"BOTTON  RIGHT  CELL  ROW  (NUMBER)  OF  BLOCK  TO  BE  ADDED" ; BRROW$ 

630  PRINT :PRINT"HOW  MANY  COLUMNS  FROM  ";TLCOL$;"  TO  "; BRCOL$ ;: INPUT  COLNUM 
640  TL$=TLCOL$+TLROW$ : BR$=BRCOL$+BRROW$ 

650  PRINT: PRINT" IS  BLOCK  " ;TL$; " : " ;BR$; "  (";COLNUM;"  COLUMNS)  OKAY  (Y  OR  N)"; 
660  INPUT  Y$ : IF  Y$="N"  THEN  590 
670  OPEN " 0 " , 1 , " D : TEST . XQT " 

680  W$="/GN" : GOSUB  850 

690  COL$=" ABCDEFGH I JKLMNOP QRSTUVWX YZ " 

700  ROWNUM=VAL( BRROW$ )-VAL( TLROWS )+l 

710  W$="/LD: "+NAM$+"RW"+" , PA"+TLROW$+" : A"+BRROW$+" , Al" : GOSUB  850 

720  FOR  R=1  TO  ROWNUM:FOR  C  =  1  TO  COLNUM 

730  W$="="+MID$( COLS , C+l , 1 )+STR$( R ) : GOSUB  850 

740  W$="0": GOSUB  850 

750  NEXT  C,R 

760  W$="=A1" : GOSUB  850 

770  FOR  1*1  TO  IR 

780  W$="/LD: "+NAM$+RCY$( 0 , I )+" ,P"+TL$+" : "+BRS+" , B1 ,+" : GOSUB  850 
790  W$="/UA1 : Z500" : GOSUB  850 
800  NEXT  I 

810  W$="=A1" : GOSUB  850 
820  CLOSE  1 
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830  SYSTEM 
840  END 

850  PRINT  #1,W$: RETURN 


50  *u.s.  GOVERNMENT  PRINTING  OFFICE i 1986-490-91? ■ 20545/ERS 


